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Section 1 
INTRODUCTION 


SCOPE ! 

This manual is intended to aid the Computer Automation FORTRAN IV programmer in . ! 

compiling and executing his programs on the ALPHA-LSI series computer. It assumes i 

that the reader knows how to write a FORTRAN program and is familiar with the FORTRAN j 
IV Reference Manual, as well as the Computer Automation Operating System (OS) User's 
Manual, since compilation and linking must be, and execution may be, performed under j 

control of the Operating System. Also, since FORTRAN programs may be executed under j 

the Real Time Executive (RTX), the reader should be familiar with the RTX User's j 

Manual as well if he intends to use the RTX or LSI-3/05 options. \ 

i 

The discussions are organized in a generally chronological order, according to the | 

normal sequence of operations; that is, the FORTRAN operating environment and the j 

Compiler are described first, followed by library structure and linking, and then ; 

run-tiine (execution). Thus the manual is structured similarly to the normal FORTRAN 
operation sequence (see figure 1-1). * j 

System generation procedures are described at the end of the manual, as they are 
issued less frequently. 

OPERATING ENVIRONMENT 

Configuration for Compilation 

\ 

The FORTRAN IV compiler requires an ALPHA LSI-2 processor with at least 16K words of 
memory. A Computer Automation Operating System (DOS, MTOS or COS) must be present j 

as well as an OS-labeled bulk device for intermediate storage of the source information 

The typical system, assumed for the examples in this manual, is a Disk Operating 
System (DOS) operating in an LSI processor with card reader, ASR-33 teletype, high 
speed paper tape reader and punch, and line printer. ■ 

t 

} 

Configurations for Linking and Execution 

\ 

Once compiled, the output (object) program is then linked to the library routines it j 

needs by means of the OSrLNK utility before it is executed. (The library routines . 

are not included in the object output during compilation, so as to conserve space at 
execution time.) If the user intends to execute his program under OS (and not RTX) 
OS:LNK will assume that execution will take place under the same version of OS as * 

the one which controls OS:LNK itself. This means that the linked program may not 
then be executed under an OS which has a different Root configuration or a different j 
working core address. However f linking a program for execution under RTX causes the 
entire RTX/TOX monitor to be included within the linked program. Thus such a program j 
may be loaded into any ALPHA-LSI processor and executed, provided that the processor f 

contains sufficient memory to hold the linked object program. 
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']• 


FORTRAN program is coded, then stored onto suitable 
input medium (cards, paper tape or magnetic file) 


CODING 

FORMS 


STANDARD 
SOURCE INPUT 


Source is input to compiler, which manipulates and 
converts it to object format, using an intermediate 
bulk storage file. 


/INTER-\ 
MEDIATE 
BULK 
^STORAGE 


COMPILER 


Once converted, the compiler outputs source and 
obj ct listings, allocation and subroutine usage maps 
to the list device. It outputs the compiled binary 
code in the requested form (magnetic file or paper 

tape). 


LISTINGS 


BINARY 

OUTPUT- 


The compiler-generated program is input to the / LIBRARY ' 

link editor (OS: LNK) , which links it to the required l ROUTINES, 

library routines. \ / 


OS: LNK 


The linked binary code is then output in standard 
loadable format. 


LINKED 

BINARY 












ComputoAutornabon 


Compilation and linking of a program to be executed on an LSI-3/05 processor must be 
done with the type 3/05 option specified. Execution can only be done under RTX, 
since OS itself is not supported on the LSI-3/05. 


\ 
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Section 2 . \ 

j 

FORTRAN IV COMPILER ! 


PURPOSE 

The purpose of the FORTRAN compiler is to input each source record (FORTRAN statement) 
through the source input (SI) device, convert the program statements into their component 
machine-language instructions utilizing the assigned Source Save (SS) device to assist 
with intermediate storage requirements, and then to output the linkable (but not loadable) 
binary code 10 the assigned binary output (BO) device, and the source listing and alloca¬ 
tion map to the assigned list output (LO) device. (Note from figure 1-1 that the compiler 
does not produce a program which is directly executable; the program is linked to 
the needed library routines and converted into standard loadable format, and then loaded 
by one of the standard loaders.) 

COMPILER ORGANIZATION 


Compiler Modules s j 

The FORTRAN compiler is a three-phase, two-pass compiler which processes FORTRAN j 
source programs one at a time, in a batch mode. It is configured as a control program ' 

and three overlays resident on the system file (SF) device (see figure 2-1) . Note that j 

an alternative configuration is used when only 16K of memory is present. This involves 
the Scan and Gen overlays being further segmented into 3 overlays each. A complete j 

description of this organization may be found in the System Generation section - Generating 
the FORTRAN Compiler. j 



Figure 2-1. FORTRAN Compile-Time Memory Layout 

s 
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Control Program 


The control program, utilizing the FORTRAN/OS I/O Interface routine, causes each 
I overlay to be loaded, then passes control to it. When each overlay has completed 
! its Processing it returns to the control program, which then calls the next overlay. 
■ *^ ,e con trol program also handles all input/output and other communication to the 

| operating system. 


Overxay 1 - Scan Phase 

The Scan phase inputs each record of the FORTRAN source program, builds symbol 
tables in its working storage area and outputs the source program listing and syntax- 
type. cror messages to the LO device, and the intermediate program code to the SS 
bulk device. The Scan phase is completed when a FORTRAN END statement is encountered. 


Overlay 2 - Allocate Phase 

» te Ali °cate phase uses the symbol tables created during the Scan phase to allocate 
ir.oraqe for program variables. It then outputs, to the LO device, the allocation 
map and error messages for any COMMON, EQUIVALENCE or undefined label errors. 


Overlay 3 - Object Generation Phase 1 

The Object Generation (or Gen") phase operates on the intermediate program cpde 
stored onto SS during the Scan phase, together with the storage allocation information 
produced during the Allocation phase, and from these it outputs object code to the 
BO device, and symbolic object text to the LO device (if requested). It then outputs 
the subroutine usage map, statement label location list and program size information 
to the LO device. 


| Batch Mode 

I The Latch 1 * mode organization of the compiler means that completion of the Gen phase 
!^{ove i.ay 3) causes control to return to the control program; this in turn calls 
' a /? ^ again, etc., until an end-of-f ile condition is sensed from the Source 
! in PU'^ device* Each compilation is a complete sequence of procedures. (Various 
\ com £ >1 ^ er options exist to permit the operator to tailor the compiler output to his 
j specific needs - see Compiler Options.) 


Working Storage 

To make maximum use of available memory, the compiler dynamically allocates its 
working storage tables, thus each table is variable in length so that no table can 
be completely filled if any unused memory is available. 
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V 


I/O CONSIDERATIONS 

The compiler Control program, which coordinates overlay calls, also handles I/O 
requests to the Operating System. Since the standard OS I/O drivers are used, all 
I/O is interrupt driven, rather than sense-driven. These requests are made to and 
from the following logical units, which must be assigned to physical devices prior 
to beginning the compilation: 


Syste m File ( SF) 

This is the file containing the compiler itself (control program and overlays). It, 
should reside on a file-type device (see System Generation). 


Source Input (SI) 

This is the file containing the source records (FORTRAN statements) to be compiled. 
It may be assigned to any OS-supported input device (card reader, teletype keyboard, 
paper tape reader, or magnetic device file). The standard length for OS source 
input records is 80 characters. However, less than this number may be input if a 
record is terminated by a carriage return character. In addition, even though OS 
will input 80 characters, the compiler processes only the first 72 as a valid state¬ 
ment, Characters in excess of 72 are treated as comment characters and ignored in 
the compilation. 

I 

A complete source input file is comprised of one or more FORTRAN programs, each of 
which must contain an END statement as its last record. The file itself must be 
terminated with an end-of-file mark. If the file contains two or more programs, 
each program is compiled before the next is input, in a "batch" mode. Processing of 
a batch file will result in binary output of a single file, however, and is to be 
used only for a main program followed by subprograms (subroutines or tasks). It is 
illegal to input two or more main programs (which do not reference each other) in 
the batch mode. 


Source Save (SS) 


This is the file created by the Scan phase of the compiler, and must be on a file- 
type device. The data written to this file is the source information, in abbreviated 
form The data is later read back into memory during the Gen phase of compilation. 

It is normally not necessary for the user to assign this file before compilation, 
since its normal default assignment is to the system file device under the file name 
"S:::S". However, it may be assigned to any file-type device, if desired, and a 
different file name may or may not be included in the assignment. In any case, the 
SS file will be set up by the compiler under the "close/delete" format, which means 
that the file will automatically be deleted upon completion of the Gen phase. 
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Bi nary Output (BO ) 



This is the file to which the compiled binary code will be output during the compilers 
(Sen phase, and which must be subsequently linked to the FORTRAN library file by the 
OS :LNK utility. It is normally assigned to a magnetic file or to the paper tape 

punch. 


Format of the binary output is in standard Computer Automation object code format, 
including several type codes designed specifically for the FORTRAN compiler. This 
output must be subsequently linked with the applicable library routines using OS:LNK 
rather than LAMBDA or OS:LDR. OS:LNK recognizes all of the specialized type codes 
used by FORTRAN, while LAMBDA and OS:LDR do not. 


List Output (LO) 


This file should be assigned to the list device for output of the compiler-generated 
listings which include source listing, diagnostics, allocation map, object listing 
(if specifically requested), subroutine usage map, statement label locations, and 
program size information. 

Assignment of the SI, SS and BO devices should be made with a thought to optimizing 
I/O throughput. For example, since the four compiler modules must be input from the 
SF device at different times during a compilation, compiling under MTOS with the SI, 
SS or BO file also assigned to the System file device will cause markedly slower 
op ration due to excessive tape repositioning. While this is npt a problem under 
DOS because of the disk’s random access capability, assigning several logical units 
to the SF device will require partitioning of the disk into 4 or 8 partitions. 


COMPILER LISTINGS 

Figure 2-2 is a sample FORTRAN output listing: 


c 






PAf F 

W 0 J .1 

09/24/74 15:13:46 FORT 

a 4 (A!) 

tiL 

PILE.: 

FOUT OPTIONS: LU 



L 

demons i rail object 

LlSIlNG 



IMEGFr nN(25), LLUlM 


0jP J 


double precision ox, or 


01’ 


COMMON M H ‘n00T, M / P.LK / 

Y 

00^5 


EQUIVALENCE (I.LL) 


P 4 o 


ISrirKDj * KD*8 


0007 

) 0 

K s (1 ♦300)*M - 74 


013 


MM Cl) » K 




X * ABSIY+4) 


01010 


D* * 0a8S(UY/4.J) 


m\ \ 


IF (OX '.LT. 0) GO TO 70 


001 2 


CALL gUBCLf3c.n,7HABCt.F; 

* Y + 4) 

0 Jt J 

20 

WRITEfG,30) Y 


00! -1 

*5.5 

FORMAT! 5X # 15 , • /ALULS.' T 

0 3 1 , 


IF (K .EU. M) OQ TO 10 


001 3 


ASSLMbLER 


0117 


L«P »2a 


001 !J 


A i)0 K 

(LOCAL VARIABLE IN RANGE) 

0 u 1 i 


STA *BP (MYlNAM - ' 

(SPECIAL SYSTEM NAME) 

0 : 4 ? J 


J.-IP #60 

(FORWARD REFERENCE IN RANgE) 

002* 

*4d 

RES 32. ' • 

(TO FORCE LITERAL POOL) 



FuRTBaN 

\ 

042j 

50 

DO 6n I * i,10 


D,1?4 

60 

M M ( I j m m J 


0 1? - 


AS3I0N 40 TO K 


00?u 


MNi3 ) • 0 

•> 


01) 

i«.M 0 lM£NSlUNt:n E*E*£*E*E*f*E*E*F*E«E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*l 


00? 7 

70 SI OF 

? j2J 

END 


Figure 2-2. Sample FORTRAN Output Listing 
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PAGl. 00J2 09/34/7.4 l5lU:46 E0RT;4 (A 1 > 

SC FILE: FOOT OPTIONS! LO 

COMMON bLuCK/ri 3 CHN/ ALLOCATION I0C565 WORDS 

locn na^l : y * ’ f words locn name type words 

rAlnui Mm INtEGEr IBM :wB64 m INTEGER 1 

COMMON 31UCK/8LK / ALLOCATION !0B02 WORDS 


.uCN NaMk TvPF words 

Y REAL 2 

,wRaY allocation 
CDCW N A ‘*t TYPE WORDS 

» NN INTEGER 25 

r ^JlVALLNcc ALLOCATION 

ocw name type words 

1B022 L INTFGER 1 

slalar ALLOCATUR 

uutN name type words 

, 002C K INTEGER t 

U02E X NEAL 2 

■00 3*4 DY DOUElJ 4 


O 1 


LOCN Name TYPE WORDS 

LOCN NAME TYPE WORDS 

locn name type words 

:a022 LL integer 10 

locn name type words 

I0O12D I INTEGER 1 

*G030 DX DOUBLE 4 


Figure 2-2. Sample FORTRAN Output Listing (Cont'd) 
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PAGE 0003 09/24/74 15*13*46 FORTU (Al) 

UO FILL: FOUT OPTIONS* LO 


0001 C 

demonstrate object 

LISTING 

0002 

INTEGER NN(2t>), LLC10) 



0003 

DOUBLE PRECISION DX, DY 



0004 

COMMON MMJf 100)# M /BLK/ 

Y 


0006 

EQUIVALENCE (L«LL) 



000b 

ISF(Kn) s KD*8 




:003b |F200 F 

JMP 

#M7 


10039 10800 #M8 

ENT 



I0O3A JF900 B 

JST 

*0PCF*RDMY) 


*003ti :0001 

DATA 

1 


I0O3C *0000 KD 

DATA 

0 


:0O3D :B701 

LDA 

*KD 


:003L *1052 

ALA 

3 


J003F *F706 

JMP 

*#M8 

0007 

10 K * lL4-300 J *M - 74 




*0040 #M? 

EQU 

10040 


*0040 *B200 F #10 

LDA 

#IC1 


10041 1 8E1F 

ADD 

L 


*0042 19A00 F 

STA 

#T0 


10043 JF900 B 

JST 

•BPCFlRMPY) 


I0nj44 *0064 C 

data 

M 


10045 I0O4A 

SAl 

74 


.*0046 *9E1 A 

STA 

K 

0008 

MM(I) » K 




1004/ :E61A 

LDX 

I 


:004b *9000 B 

STA 

MBp(MM 

F 00 V 

X « ABSl’Y + 4) 




*0049 IF900 b 

JST 

♦BP(FlRREL) 


*0U4A *AA00 F 

LDR 

#RC1 


1004b *8900 B 

ADD 

*BP(Y ) 


1004C *9A00 F 

STA 

*T1 


:0ki4i) *0006 

ABS 



I004E *9E20 

STA 

X 

0010 

DX * DAB3CDY/4.3) 




»0U4F *B61B 

LDD 

dy 


10050 * A200 F 

DVM 

#RC2 


: 0U5i *0005 

ABS 



*0052 * 9E22' 

STA 

DX 

001 1 

IF (DX '.LT. 0) GO TO 70 




10053 10000 

XIT 



10054. *2080 F 

JAM 

#M9 

00 J 2 

CALL SU8(L+300,7hABCDE , 

Y+4) 



10055 IF900 6 

JST 

*BP(SUB ) 


10056 10003 

DATA 

3 


10067 *0000 F 

DATA 

#T0 


10058 *0000 F 

DATA 

#HC0 


10059 *0000 F - 

DATA 

#T1 

0013 

20 WRITE f 6» 30) Y 




1035a 1F903 B #22 

J8T 

♦BP(F*R*F ) 


10056 10000 F 

DATA 

#IC5 


IP05U 10000 

DATA 

#30 


»al2C 


* 4180*0000 


*4189*9999 


\ 


10006 




PAGfc 0004 09/24/74 l5*13|46 FORT.4 (AU 

ao FILE* FOOT uPTIGNSt LO 


:0u5D »(900 0 
I0U5L 30000 C 
:«*05f *F900 b 
0014 30 FCRM'aT( 5X , 15 , 

30000 IA8B5 

0015 IF (K „EG)' # M) Gf) 

*0060 *8634 
30061 39100 b 
*0062 32100 F 
10040 

AaSEMatFR 
LAP *2A 
*0063 :C62A 
ADO K 
S0u64 * BE 38 
STA *8P(MY«NAM) 
30065 19900 b 


JST 

DATA 

JST 

VALUE3.* ) 


♦BP(FtRROL) 

Y 

*BP(FiRSIO) 


8316 

00:? 

001 b 
001 9 

02 il 

0*j2l Mi<3 

0022 
0023 

0024 


002 


#30 
TO 10 


#M10 


TEXT *(5x#15, * VALUES.»)• 


JMP #50 

10066 t F200 
RES 32.' 

30067 3A0A0 

Fortran 

60 DO 60 I » 1,13 
300R7 JC401 
J0JBQ |EE5b 
60 MM (I) * -1 


LDA 

SUB 

JAZ 

EQU 


LAP 


ADD 


STA 

JMP 


#40 


#50 
•Ml 1 


K 

*BP(M 
• Ml0 
10040 


I002A 

(LOCAL VARIABLE IN RANGE) 

K 

(SPECIAL SYSTEM NAME) 
ABPtMYlNAH) 

(forward reference in range) 

#50 

(TO FORCE LITERAL POOL) 


RES 32,' 


LXP 

3TX 




o 


30089 

IC701 


#60 

LAM 

1 

3 008 A 

19D00 

a 


STA 

MBP 

ASSIGN 4J 

TO K 





!fl<S8a 

3 C20 1 



AXI 

1 

J008C 

1 0030 



TXA 


l 01)80 

3 3 D 0 A 



SAl 

10 

JfljSL 

:2lC6 



JAL 

• Mil 

X- 008 F 

l B200 

F 


LDA 

#40 

*309,4 

3 F200 

F 

#L 

JMP 

• Ml 2 

3 0091 

3 F203 

F 


JMP 

•M9 

*0J92 

* 9E66 


#M 12 

STA 

K 

MNC3) • 0 







*1) 


literal pool 


0i j yw dimensioned f*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e*e 


* P0V3 

.Ri*9 

' 3 • 'it*' 


IFS00 

* r 3 1 a 


JST *BP(FIRERR) 
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Figure 2-2. Sample FORTRAN Output Listing (Cont’d) 
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Th<; full listing of si compiled program consists of four parts: 


1 . Source listing 

2 . Vsjriable storage allocation 

3. Object listing 

4. Summary 


| When no special options are requested, the object listing is not produced, but the other 
three are. The LO (List Object) option causes the object listing to be produced. If the 
EL (Error List only) option is specified, the source listing is suppressed, except for 
j the first line and any lines that have errors. This can be used to save time and paper, 

, while still being informed of any errors. Figure 2-2 shows a complete program listing. 
Following is a description of the four parts. 


s 

| 

Source lasting (Page 0001) 

f 


| he source listing shows each source line, preceded by a decimal line number beginning 
with 0001. One space separates the line number and the first column of the source line. 
Every line is numbered, including continuation lines and comments. If EL (Error List 
only) is requested, the first source line is automatically output, and the correct line 
number will be shown for any error source lines. Error messages may be interspersed, 
as shown after line 0026 of the sample program in figure 2-2. Note that each such message 
is followed by a string of E's (or W's) and asterisks, so that it will stand out. See 
"Compiler Diagnostics" for more information. 


Varia ble Storage Allocation (Page 0002) 


Several kinds of tables can appear here, depending on the variables used in the program , 
and their allocation. If any variables have been allocated in COMMON, a storage map 
will appear for each COMMON block, including blank COMMON which is known as FtBCMN. 
Each map gives the name of the block and its size in hexadecimal. Then each variable 
Is listed, showing its location (in hexadecimal), name, type, and size (in decimal). 

The size is the total number of words occupied. Remember that floating point quantities 
occupy more than one word per element. (Others may too in ANSI mode.) 

If there are local (non-COMMON) arrays that have not appeared in EQUIVALENCE, these 
are shown next, with the same information as for the variables in COMMON. Next comes 
the map for any local variables (arrays or scalars) that have appeared in EQUIVALENCE. 
And finally , a table of all the local scalar variables (not in COMMON, not EQUIVALENCEd) . 

A table heading appears only if there are any items to appear in it. The variables in 

n ?rTr“i. **ff •- 7L \Z~Z2. 'TIL • "g 1 ^^ 










Figure 2-2 shows a sample object listing. Some descriptions below refer to it, either 
by source line number or by hexadecimal location. 


An object listing always includes all source lines, even if suppressed in the source listing 
by the EL (Error List only) option. The source lines are interspersed so that in most 
cases they are followed by the instructions that were generated for them. When examining 
the object code produced for one individual statement note the following: 

1. The compiler does not generate object code one statement at a time. It remembers 
computations and the contents of the registers from previous statements within a 
block. (A block is ended by a label that is jumped to or in other ways.) Therefore, 
the code for one statement may look incomplete, since it is making use of results 
from previous statements. See, for example, source line 0012, which uses two values 
computed earlier and stored in temps, line 0011, which uses the contents of the floating 
point accumulator, and line 0024, which uses the contents of the index register. 

2. Literal pools may be generated at almost any point in the program, making the code 
for that statement look longer . 

3. The code to terminate a DO loop is not listed after the terminal statement, but after 
the following statement. This is illustrated by source line 0025, which also contains 
a literal pool, thus making its two instructions look like eight. 

The layout of an object program is shown in figure 2-3. 



Figure 2-3. Layout of Object Program 

The allocation of variables was shown in the allocation maps, so is not reproduced in the 
object listing. The FORMATS, although generated apart at the head of the program, are 
listed where they appear in the source program. Here the program is not listed in strict 
forward order (i.e. the memory locations are not listed sequentially). Another place 
is the temps at the end of the program. For the most part, however, the program is listed 
in forward order, beginning at the entry point and ending at the last temp or constant. 
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Each lmt' of object code listed consists of seven parts (four of which are optional) and 
from left to right these are: 

1. The hexadecimal location counter. See below for a complete list of the situations 
in which the location counter does not increase by one at each line. 


2 . 


3. 


4J- 


The hexadecimal representation of the generated word, which may be an instruction 
or a data value. In many cases , this is only a skeleton word, since the actual address 
is not known at the time it is listed. This includes references to COMMON, externals, 
base page , and most forward locations. Also, an instruction may turn out to be indirect 
through a literal pool pointer, even though it is not listed that way. 

An optional alphabetic tag letter, which indicates for some operands the kind of ad¬ 
dressing that the generated word is actually using. These are: 

B Base page 

C COMMON (blank or labeled) 

F Forward reference 

S Scratchpad Relocatable data 

These next four items in the line are parts of a simulated assembly language listing 
of the instruction. It is not always possible to list the instruction exactly as it would 
appear in assembly language, but in most cases the representation is very close 
and makes it clear what the compiler is doing. See below for a list of differences. 

The first field is the label field, beginning in column 1 of the simulated assembly 
listing. For normal instructions (i.e. not temps, constants, or literal pools), there 
are three kinds of labels that can appear: 

#n Statement number from the source program. (For example, see location 

: 005A). 

#Mn "Made" label, an internal transfer point generated by the compiler. 

(H.g. location : 0040, which is the target of the jump around the statement 
function above.) Note that in this case there are two labels attached 
to the same location. 

name This occurs only on the dummies of statement functions (e.g. location 

: 003C) • The dummies of FUNCTIONS and SUBROUTINES are not labeled, 
nor is the entry point. 

Several other kinds of labels can appear in special places: 

#Tn Temp. Appear at the end of the program (e.g. location : 009F) . 

#ICn Integer constant. Usually appear at the end (e.g. location : 00A8), 

but can also appear in literal pools. 

#RCn Real (or double precision or complex) constant. Appear only at the 
end of the program (e.g. location : 0099). 
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#HCn Hollerith constant. Appear only at the end (e.g. location :00A2), 

and are always preceded by the character count. 

#L Literal pool. This label serves only to signal the beginning of a 

literal pool (location :G08F). It is never referenced, and can 
appear more than once without constituting a duplicate definition. 

It always appears on the jump around the literal pool, and therefore 
does not appear on pools generated by the LPOOL directive. 


5. Op-code field. All of the possible op-codes are shown in the section on in¬ 
line assembly language in the FORTRAN Reference Manual. They are all either 
standard assembler mnemonics or floating point interpretive op-codes. 

6. Operand field. Where appropriate, it may begin with * (indirect) and/or @ 
(indexed). A large variety of operands can appear, some only as the result of 
having been used on an in-line assembly instruction. 






a. Blank. For op-codes like TXA or ABS that have no operand (e.g. location 
:0039). 

b. Decimal value, optionally preceded by minus sign (location :0045). 

c. Hexadecimal value, always preceded by a colon (location :0063). 

d„ Alphanumeric sjbring, enclosed in quotes (location :00A2). 

I 

e. #n (statement label) (location :005C). Can be followed by decimal addend 
only from in-line assembly. 

f. #Tn (Temp, e.g. location :0042), #Mn ("made" label, location :0038), #ICn 
(Integer Constant, location :0040), #RCn (Real Constant, location :004A), 
or #HCn (Hollerith Constant, location :0058). 

g. $ (current location), optionally followed by a decimal addend. This can 
occur only from in-line assembly. Otherwise the compiler always generates 
a "made" label. 

h. FORTRAN name (variable or subprogram), optionally followed by decimal 
addend (location :003D or :0047). 

i. Special system (or run time) name, which always contains a colon (location 
:005F or :0065). As shown, these are usually in combination with a BP 
(Base Page) reference, since most instructions cannot address external 
references directly. 

j. BP(x), base page reference, where x is a FORTRAN name or system name, 
possibly with an addend (location :0048). BP of other operands can result 
only from in-line assembly language. 
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r 

| 


if-l 

f ' 1 


NOTE 

In certain cases (notably e, f, and h above), operands 
may be listed as direct when, in fact, they turn out 
to be indirect through a literal pool pointer word, 
because they are out of range. The only way to deter¬ 
mine this is to look at the actual word in memory 
after the program is loaded. 


; 7. Comment field. When numeric constants are referenced, their hexadecimal value 

| is shown in the comment field (location : 004A) . This value may differ by one 

bit from the actual value printed at the end of the program, because the rounding 
: is not applied until then. Note that on location : 0050, only the first three words 

of a four word constant are shown, because the printer line width was not large 
, enough to fit them all in. 


j Sum mary ( P age 0005) 

Q 

The summary is printed immediately following the object listing, if there is one, otherwise 
following the allocation tables. First the subprograms called by the program are listed. 
Ibis includes functions and subroutines referenced explicitly by the program, as well 
as run time routines referenced by the generated object code (e.g. for floating point, 
input/output, etc.). Names referenced by the program are FORTRAN names, i.e. begin¬ 
ning with a letter and containing only letters and digits. Run-time routines are non- 
FORTRAN names, because they always contain a colon (e.g. F:RWF, F: RREL) . This 
may include special system names referenced by in-line assembly language (e.g. MY: NAM 
in the sample program). 

The table shows first the name of the subprogram. Next is the type (e.g. REAL, INTEGER) 
if it is a FORTRAN referenced name, or the word RUNTIME otherwise. Then, again for 
FORTRAN referenced subprograms only, appears the number of arguments it has been 
called with. If the number of arguments is variable (e.g. to AMAX1) or unknown (name 
declared external but not directly called), the number of arguments is shown as zero. 

ith the exception of intrinsic functions, this list of subprograms called represents the 
names that must be found during loading, either from the library or from other programs 
compiled or assembled by you. Intrinsic functions (e.g. ABS) are listed here but are 
’ not actually referenced externally. They are generated in-line. 

Second in the summary is a map of the statement labels. This includes the statement 
■ numbers used in the source program and also the "made" labels generated by the compiler 
(#Mn). They appear in the order defined or referenced in the object program, which 
! is not necessarily storage order. Each entry contains the hexadecimal location, the label, 
and in certain cases an indication of the use. There are three such indications: 

FORMAT This is the label of a FORMAT statement. 

I DO END This has been used only as the terminus of a DO. 

UNUSED This label was defined on a statement, but never referenced. 
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Finally, four pieces of information are given about the program: 

Location (in hexadecimal) of the entry point. 

Total size (in hexadecimal) of the program, including local variables but not COMMON. 
Number of base page words used (in hexadecimal). 

Message COMPILATION COMPLETE followed by the number of errors (even if zero). 

. ’ ' I 

DIFFERENCES FROM ASSEMBLY LANGUAGE j 

As noted above, the simulated assembly language listing of the object program is an appro- ! 
ximation of how the program would appear in assembly language. In most cases it is 
exactly the same, but there are some differences you should be aware of, both to aid your 1 
understanding of the generated code, and also in case you should try to extract code 
from a compiled program and use it in an assembled program. These differences are 
listed below. . 

| 

1. Operands that are out of range are not always shown as referenced indirectly through 

a literal pool pointer, even though that happens. This can happen on statement num- j 
bers, "made" labels, temps, and floating and Hollerith constants. For example, 
location : 0054 shows a direct reference to #M9, but actually ends up being indirect I 
through the literal pool address in location : 0091. 

i 

2. Similarly, references to array offsets that have to be stored in temps (in No Scratchpad 

mode) may show just the name of the array, when they actually address a constant 
containing the array base minus an offset. | 

i 

3. Also in the same vein, the ASSIGN statement lists a load of a statement label instead 
of a constant containing the address of the label (e.g. location : 008F). 

4. instead of increasing by one each time, the location counter may jump suddenly without ’ 

indication in the assembly language. This can happen in the following places: I 

a. FORMATS are generated starting in location : 0000 (program relative) , regardless 

of where they appear in the source program (see source line 0014). j 

b. Not all of the generated hexadecimal words are shown for the TEXT command i 

in a FORMAT statement. Only the first word is shown (in order to save paper 

in the object listing), unless the string is more than 32 characters long, in which 
case every sixteenth word will have a new TEXT command and one word of hexade¬ 
cimal. For example, see source line 0014. 

\ 5 

c . The temps listed at the end of the program may not be in order; the location j 

counter may jump around. Also, although all temps are listed as DATA 0, some 
of them actually occupy two or four words, so the location counter will increment I 
by that amount. , 


1 . 
2 . 

3. 

4. 
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5. Whenever a name (FORTRAN or runtime) is listed as an operand, the full six spaces 
are always reserved for it. Thus if there is something to follow the name (e.g. an 
addend), and the name is shorter than six characters, there will be blanks in between, 
which would not be allowed in assembly language. (For example, location : 0048 

or : 005A) . 


6. The decimal value -32768 is listed as -0. 

7. If a quote mark appears within an alphanumeric string that is enclosed in quotes, 

it is represented only as a single quote mark, rather than as two quotes (which would 
he required normally in such a string) .' 

8. #L appears in the label field of all compiler generated literal pools (i.e. those not 
called forth by the LPOOL directive). It is only a signal and never gets defined, 
but in assembly language it would constitute a double definition. 


9. 

c 


The double-word op-codes MPY, DVD, and NRM, instead of being listed as, for 
example, 

MPY a,b 


are listed as: 


MPY 

DATA a ,b 


but they generate the correct object code, which is: 


MPY b 
DATA a 


10. A. number of things are implied in the object listing, without being specifically shown. 

This includes: 



The scalars and arrays are not allocated (i.e. by RES directives). The compiler 
knows where they are and tabulates this information in the allocation maps preced¬ 
ing the object listing. 


b. External definitions and references and allocation of variables into COMMON are 

not shown . 


c. The dummies of FUNCTIONS and SUBROUTINES are not labeled with their names. 

d. The entry point of the program is not labeled (i.e. with the subprogram name 
or F:MAIN). However, it is identified as such in the summary. 

e. No END line is listed, and therefore no transfer address (to F:MAIN) in a main 

program. 
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COMPILER OPTIONS 

Compilation may be performed under nine different options. Each is described below, 
and may be requested by the user by including the option names as parameters in the 
OS/EXECUTE or /BEGIN command when starting the compilation. The compiler looks at 
only the first two characters of the option name; thus either the first two characters 
or the entire option name may be specified. The options requested are output on the 
listings (in 2-character format) as the second header line on each page, along with 
the BO file name, if any. 


EList (Error-only listing) 

Requesting this option will cause the compiler source output listing to be suppressed, 
except for those statements with Error or Warning diagnostics. 

(The first source line of the program is always printed.) 



LObj (Object code listing) 

This option lists, following the source listing and allocation map, the actual 
machine language code generated by each FORTRAN statement, and its symbolic rep¬ 
resentation in FORTRAN assembly format (see Figure 2-2, pages 0003-0005). The code 
for each FORTRAN statement is preceded by the source statement. This listing can be 
useful to the programmer who wishes to see how the source statement is expanded into 
binary code, and thus offers a convenient method for use in debugging, or for compar¬ 
ing memory usage and execution time for the various statements. This listing can be 
rather long, however, since several lines are generated for every source statement. 


NBinary (Suppress binary output) 

This option suppresses output to the BO device. This option is requested when it is 
likely that the source statements contain errors (e.g. in a preliminary compilation), 
and thus the resultant binary output will not be useable. Output of the normal 
printer.listings is unaffected by this option. 


RScratchpad (Reduced scratchpad usage) 

This option reduces the amount of scratchpad area used during the execution of the 
compiled FORTRAN program. An example is where the user compiles a large FORTRAN 
program, then links it using 0S:LNK, only to find a scratchpad overflow condition. 
At this time, he should re-compile the program using the "RS" option. 

Note that this option does not totally preclude scratchpad usage, but rather causes 
the compiler to minimize its use, by creating address pointers to external sub¬ 
programs in main memory rather than in scratchpad. Note, however, that references 
to arrays and COMMON variables remain in scratchpad. 


NScratchpad (no scratchpad usage) . j 

This option causes the compiler to avoid the use of scratchpad for address pointers to i 
external subprograms, arrays, and variables in COMMON. 
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i 

Note: There are 20 words of relocatable scratchpad (SREL) program which are always 

required in scratchpad, even when the NS option is requested. These are used by 
FORTRAN at run-time for its floating point accumulator and other special temp cells. 

f ■ • 

\ This option should be used when the FORTRAN programmer requires a large amount of 
scratchpad for his own purposes. This option causes less efficient run-time code to 
be generated in order to compensate for the avoidance of scratchpad. 

- XOn (Compile "X" statements) 

This option compiles any FORTRAN statement containing an "X" in column 1. If the 
option is not requested, such statements will be treated as comments. This is a 
useful option for debugging purposes during program checkout. Once the program has 
been shown to be correct, it may be compiled without the XOn option, and the "X" 
statements then serve as historical references. Refer to the XON example in the 
FORTRAN Reference Manual. 


ADp (Automatic Double Precision option) 

if is option changes all real variables, arrays, constants and non-library subprograms 
uii the FORTRAN source program* to double precision. In effect, the compiler proceeds 
as if all real, variables and arrays had been typed as double precision/ and all 
floating point constants are assumed to be double precision. In addition, references 
to aii library functions (intrinsic and basic external) of the real type are changed 
to reference the double precision equivalents of those functions. These changes do 
not appear on the source output listing, which is simply a printout of the source 
record images. The changes do appear on the object listing (if requested). 


This option is normally requested when the single precision accuracy of an existing 
i FORTRAN program is found to be insufficient. However, because of some inconsistencies 
which may arise in the usage of this option (see below), it generally is better to 
: write a double precision program than to convert a floating point program using ADP. 

The hollowing considerations should be taken into account when using this option: 

I 1. Complex numbers are not converted to double precision. 

j 2. toy programs which interface to the converted program should also be double 
\ precision so that arguments will be of the same type, and COMMON will be correctly 

O aligned. 

: 3. If a standard library routine is declared EXTERNAL, the compiler will not 
j recognize it as one of the standard routines, and thus will not automatically 

substitute the equivalent double precision routine. 

4. Operands used under the FORTRAN in-line assembly feature may be converted to 
\ double precision, but op-codes will not be changed. 

I Figures 2-3 and 2-4 demonstrate the function of the ADP option. Figure 2-3 was 
I compiled without the ADP optxon, Figure 2-4 with the option. The differences are 
| circled on the listings. Note that the variables X, Y and NUM, which would normally 
\ be single precision real types, are converted to double precision. Also, the con- 
j stants 2.3 (real) and 17 (integer) are also converted to double precision. The 
: external function F is assumed to be double precision, and references to the FORTRAN 
! functions SIN and ABS are actually made to DSTN and DABS, as shown in the subprogram 
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usage map. (In the case of DABS, the actual object generation—during the compiler 
Gen phase--does not require a call to this function, and so none appears in the 
object listing. The reference to DABS still appears in the subprogram map, because it 
was made during the Scan phase prior to object generation.) 


ANsi (ANSI - compatible allocation) 

This option allocates two words of memory instead of one to all integer and logical 
quantities. This is used where a program requires storage allocation to be ANSI 
compatible, since the ANSI standard specifies that integer, logical and real quantities 
must be the same size. In most instances this option will have no adverse effect on 
the program's operation, however, note the following exceptions: 

1. Any operation which steps through each word of memory should not be used on an 
integer or logical buffer or array (e.g. ENCODE or DECODE statements) where the 
ANSI option is used. 

2. Any programs interfacing to an ANSI program should also be ANSI to avoid any 
conflicting COMMON variables which are integers of logicals. 

Figures 2-5 and 2-6 are examples of ANSI option usage. Figure 2-5 was created without 
the ANSI option, Figure 2-6 with the option. The differences are circled, and 
demonstrate the doubling in size of the integer and logical variables: 
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Figure 2-3, Compilation without ADP Option Example 
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Figure 2 - 3 . Compilation without ADP Option Example (Cont'd) 
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Figure 2-4 Compilation with ADP Option Example 
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Figure 2-4. Compilation with ADP Option Example (Cont'd) 
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Figure 2-5. Listing without ANSI Option Example 
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Figure 2-6. Listing with AfrSI Option Example 
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-- COMPUTER AUTOMATION. INC. - 

TRace (Co mpile fo r ex ecution with Trace fun ct ion) J 

When the TRace option is specified, the compiler generates extra run time calls in the 
compiled program that cause it to print out trace information (on unit 6) in three places: 

1. Whenever a labeled statement is reached, the message: 

xxxxxx LINE ddddd 

is printed before the statement is executed, where 

xxxxxx is the name of the program (F:MAIN if main program) . If the name is 
the same as that on the previous trace line, it is not printed. In other 
words, the name will be printed once when the program is entered, 
and not again until a new program is entered (or returned to). 

ddddd is the source line number of the statement about to be executed. 

0 When a SUBROUTINE or FUNCTION is entered, the message: 

xxxxxx ENTRY 

is printed immediately after entry. Again xxxxxx is the subprogram name, which 
will always be printed. Note that the tracing is done upon entry, not upon call. 
Therefore only subprograms that are compiled in TRACE mode will be traced. 

3. When a RETURN statement is reached (whether or not labeled), the message: 

xxxxxx RETURN LINE ddddd 

is printed before executing the RETURN. 

This information is sufficient to follow the flow of the program, since it will trace all 
jumps (the transfer point will be labeled) and all calls, except to library routines (which 
are assumed to operate correctly) and to subprograms not compiled in TRACE mode (which 
©•.re also assumed to operate correctly) . It is not necessary that all of the programs loaded 
be compiled in TRACE mode. As soon as certain parts are checked out, they can be com ¬ 
piled normally, so only the remaining parts are traced. Note that assembly language 
subprograms are not traced, nor are sections of in-line assembly language. 

The following example demonstrates the use of the TRace option: 

1 
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COMPUTER AUTOMATION. INC. 


PAGE 

000] 

07/17/74 14:10:42 EuRIHaN 

0001 


I * b 

0002 

10 

CALL MYSUd 

0U03 

20 

WRITE (6,30) 

0004 

30 

EURMAl (• WRITE MESSAGE') 

000b 

.40 

1 = 1-1 

0006 


If (I .EQ. U) GO TO by 

0007 


GO TO 10 

0006 

50 

STOP 1 

0009 


END 


PALt U001 07/17/74 l4i10*42 FURTRAN (XIJ COMPILATION 


SUBROUTINE MYSUb 

return 

LND 


Note that the main program contains four labeled statements (line 2,3,5 and 8) . Line 4, 
the format statement, is not traced since it is not executed. Also, line 2 contains a CALL 
to the subroutine, MYSUB. 

The following lines were executed by this program when compiled without the TRace 
option: 


0010 
0011 
0012 


WRITE MESSAGE 
WRITE MESSAGE 
WRITE MESSAGE 
WRITE MESSAGE 
WRITE MESSAGE 


The following lines were output during execution of the same program, after being compiled 


with the TRace option: 




FJMAIN LINE 

2 



mysub entry 




return 

LINE 

11 


F* MAIN lint 

3 



WRITE MESSAGE 




LINE 

5 



LINE. 

2 



MYSUa entry 




RETURN 

LINE 

11 


ftnAIN LINE 

3 



WRITE MESSAGE 




LINE 

b 



LINE 

2 



MYSUb entry 




return 

LINE 

11 


(Continued on next page) 
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COMPUTER AUTOMATION. INC. 



r:MAXN LINE 3 

WKITE MESSAGE 

line: s> 

LINE 2 

MYSUd CNTHY 

RETURN LINE 
TiMAjN LINE 3 

WRITE MESSAGE 

LINE 5 

LINE 2 

liYSUfl ENTRY 

RETURN LINE 
f: MAIN line 3 

WRITE MLSSAbE 

LINE. f> 

LINE 0 


n 


u 


( Compile for e xecution under the Real-Time Executive RTX/IOX) 

This option must be specified when a FORTRAN program is to be compiled for execution 
as a task under RTX. The option causes references to common FORTRAN library subpro¬ 
grams to hr made via the RTX SUBR: function; also, no execution address is output 
at the end of the compilation, since it is assumed that the task(s) will ultimately be 
linked to an assembled Mainline sequence (called F-.MAIN). 


A program run under RTX normally consists of a Mainline sequence and one or more 
tasks to be run simultaneously. Refer to the RTX User's Manual for a complete description 
of an RTX program. The following discussion encompasses only the differences between 
the standard RTX program and a FORTRAN program run under RTX. 

A FORTRAN program is considered a "task" to RTX. Several FORTRAN (or non-FORTRAN, 
or intermixed) tasks may be linked together with a Mainline sequence, to be run simulta- 

|ieously. 


RTX Mainline Sequence 


The Mainline sequence is simply a calling routine to initialize and begin each task using 
the RTX BEGIN: subroutine. Normally the Mainline is assembled using OS: ASM, while 
a FORTRAN task is compiled by the FORTRAN compiler using the RTX option, and having 
a TASK statement as its first source statement. The organization of the Mainline sequence 
is described in the RTX User's Manual. Additional considerations for a Mainline sequence 
which is to initiate FORTRAN tasks are described below. (See figure 2-7 for an example 
of n Mainline and two tasks.) 
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—_——---- ComputorAutomation 

Mainline Entry Point (F:MAIN) 

For proper linking under OS:LNK, the mainline sequence must contain as its entry 
point the label "F:MAIN". This label must also appear in a NAM directive at the 
start of the mainline sequence. 


Input/OutputiBlock (IOB) 

A non-FORTRAN RTX program requires that each task contain an IOB (Input/Output 
Block} which contains pertinent information for I/O operations. Under FORTRAN, 
however, I/O information is expressed in FORTRAN I/O statements. This information 
is then converted by the FORTRAN/RTX I/O Interface module into the IOB format required 
by RTX. Thus the FORTRAN user does not supply the IOB. 


Unit Assignment Table (UAT) j 

Executing a program (Fortran or otherwise) under OS control differs greatly from j 

execution under RTX control. One important difference is the manner in which logical J 

units are assigned to physical I/O devices. Under OS, this is accomplished by the l 

/ASSIGN command. Under RTX, however, a Unit Assignment Table (UAT) must exist, ! 

which is a table of two-word entries, each providing a connection between a logical 
unit number and a physical I/O device. Thus RTX requires that device assignment be I 
made at assembly time, rather than allowing dynamic assignment at execution time, as 
does OS. i ; 

t 

In FORTRAN, the most convenient location for the UAT is within the assembled mainline 
program, and it is suggested that the user follow this practice to provide the 5 

greatest ease in changing the UAT when necessary. (It is because of the great 
variability in UAT construction, and the dependence of its organization on the j 

j FORTRAN unit numbers used as well as the physical devices configured on the user's 
j system, that no standard UAT is included in the FORTRAN library modules.) 

s ' ; 

The UAT is simply a table of two-word entries for each logical unit which can be 
referenced within the IOX section of RTX, plus a terminating word containing the UAT f 
word length. (Refer to the RTX User's Manual for a complete description, and see . 

the RTX mainline example below, which contains a UAT.) The first word of each entry ; 

is the FORTRAN unit number. The second word of each entry is the address of the 
j corresponding DIB (Device Information Block) table within RTX. A NAM directive to j 

| the label I:UAT must be included at the start of the Mainline program, as this is \ 

j the name used by RTX/IOX when referencing the UAT. (I:UAT is defined as the last , . 

rather than the first, word of the UAT.) ! 

As mentioned in the RTX User's Manual, certain DIB's exist within RTX/IOX (for disk, I 
line printer and teletype) which reference special FORTRAN drivers within RTX/IOX. 

This is because FORTRAN requires more capability within the driver than IOX normally 
supplies. The special teletype and printer drivers are needed to recognize carriage 
control characters. The special disk drivers handle record numbers internally, and j 
can recognize and create end-of-file marks. Since an RTX mainline sequence may I 

reference both FORTRAN and non-FORTRAN tasks, both types of DIB may be required. j 

Fortran unit numbers in UAT entries should reference FORTRAN type DIB's, if they 
exist* , I 

( i 

i 
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! Note* also that the standard disk DIB's in RTX/IOX each refer to a single file, or "extent" 

I on the disk. Since there is no way for RTX to know before-hand how much of the disk 

j or how many separate disk files the user may require, the disk DIB's have been established 

j for the general case; each DIB refers to an entire disk platter and considers it a single 

! file. Since in many cases an entire platter is an excessive amount of disk space to reserve 

for a single file, the user may wish to specify his own DIB, describing a different "extent" 

S on the disk. The procedure for doing this is in the System Generation section of this 

manual. 

i 

| Parameter Blocks 

j When the Mainline is to be used to call FORTRAN (as opposed to non-FORTRAN) tasks, 

a parameter block area and I/O buffer must be included in the mainline for each FORTRAN 
] I/O call to be run simultaneously. (Since RTX does not know in advance how many tasks 

• are to be run simultaneously, it is up to the user to reserve these areas.) 

j This implies that the user must determine the size required of the I/O buffer; in general, 
; Qfor binary (unformatted) I/O, 255 words should be reserved. For ASCII I/O, the size 
j to be reserved is dependent on the type of device and the data to be output. 

■..■■The user must reserve at least one parameter block. It may be useful to reserve more 
j -than one block in some cases; for example, when both ASCII and binary I/O are called 
for in a task , two blocks should be reserved, one containing a 66-word (for example) 
j -/buffer for ASCII and the other containing a 255-word buffer, for binary I/O. In addition, 
certain error messages which are output by FORTRAN may require a parameter block 
! while executing a task whose ASCII buffer is already in use. In any case, if a parameter 
j block is needed, and none are currently available, the particular task will "hang-up" 
i (within the interface) until one becomes available. 

| In general, the user should reserve an I/O length which is large enough to accommodate 
: an I/O operation to a particular device, up to 255 words. 

i • 

A parameter block is reserved as follows: 


If CHAN 

F: PRAM 


Chain to other parameter blocks 

I 

? DATA 

i 

XX + XX 


Length of I/O buffer (in bytes, where xx 
is the word length) 

| RES 

| 

85 


Space for FORTRAN temp cells, parameters 
and IOB 

RES 

j 1 

i 

I 

XX 


I/O buffer, xx (word length) is determined 
by the user depending on the capabilities 
of the particular I/O device, as well as the 
needs of his FORTRAN tasks. 


CHAN 


F: PRAM 


Next parameter block 






- ComputerAuftomation 


Note that the chain reference must be to 
"F-.PRAM" 

fox~ each chain node. Note also that no parameter block is dedicated to any particular 
task; rather, the chain is used when a block is needed, to find an unused block for 
whatever task is about to perform I/O. This procedure occurs as follows: 

When a FORTRAN task performs an I/O operation, the I/O interface is alerted. The 
interface then uses its own chain node to F:PRAM to find an unused parameter block, 
whose I/O buffer is of sufficient length, according to the length specified in the 
DIB of the applicable unit. Thus, once the buffer requirements are known to the. 
interface (by means of the maximum record size within the unit's DIB) the lengths of 
the available I/O buffers are scanned in order to locate the smallest buffer which 
will be capable of holding the I/O data. 


RTX task 

A task is merely a FORTRAN program which has been compiled under the RTX option, and 
which contains a TASK statement as its first statement. The TASK statement defines 
the task name, which is referenced in the Mainline sequence during the call to the 
RTX BEGIN: routine. 


Sample FORTRAN/RTX Listing : 

Figure 2-7 is an example of a FORTRAN Mainline and two tasks. The first task (TASKl) 
calculates and prints the square root of each integer from 1 to 50. The second does 
the same thing for numbers from 51 to 100. This causes both tasks to make calls to 
the SQRT external function routine, and to share the line printer for their output. 


Mainline Example Description 

Note that it is generally more convenient to assemble the Mainline sequence using 
OS:ASM, rather than to compile it in FORTRAN. 

NAM directives must be included for the mainline sequence itself (F:MAIN) and for 
the Unit Assignment Table (I:UAT). 

External references are required for the RTX routines used by F:MAIN: 


RTX: 

BEGIN: 

END: 

and for the DIB's referenced in the Unit Assignment Table: 
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Figure 2-7. FORT RAN / RTX Example 
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Figure 2-7. FORTRAN/RTX Example (Cont'd) 
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08/12//4 09H2S55 FORTRAN (X3) COMPILATION 
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CONVERT NUMBER to floating point for sort 
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Figure 2-7. FORTRAN/RTX Example (Cont'd) 
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sort^'/F;, 


STOP 1 


Figure 2-7. FORTRAN/RTX Example (Cont'd) 
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Figure 2-7. FORTRAN/RTX Example (Cont'd) 
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PAGt 
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FORTRAN (X3) COMPILATION 


01 '? 4 
0025 L 
B'J26 L 
- PU»27 C 
002U C 
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0031 C 
0032 
0033 C 
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003d 
00 3*J C 
0037 C 
003 b 
0030 20 


e J4.i c 

t’’J4i t 

0042 IF 


004J L 
#| 0044 L 
W 0 046 
004 j 


Task U3K2 

this task calculates anu prints numbers 

FROM o 1 TO 100, AND THEIR SQUARE ROOTS. 

LuOP FROM 51 TO 104 
nu IPI JNIIM * 51,104 

CONVFWT NUMBER TO FLOATING POINT FOR SORT 
RNlJM* JNUM 

calculate square rout 

SQRUOT S SORT (RNUM) 

PRINT TASK NAhE, NUMBER, SQUARE ROOT 

ARITF (6,20) JNUM. SQROOT 

Format i » task? n«'.I3, », sqrt«sf7.3) 

DJ NFXT NUMBER 
LJNflNUL 

AT ENo, DISPLAY TASK NO. AND TERMINATE 

STOP 2 

END 


| 


page 0002 08/12/74 09*12*55 Fortran cx3) compilation 

QPriJNs’r LO, RT 

SCALAR ALLOCATION 

loch name type words locn name type words 

*0011 JNUH INTEGER 1 *JIH2 RNIJM REAL 2 

10014 SURUOT REAt 2 


i 


Figure 2-7. FORTRAN/RTX Example (Cont'd) 
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Figure 2-7. FORTRAN/RTX Example (Cont’d) 
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Figure 2-7. FORTRAN/RTX Example (Cont'd) 
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TASK 

0 - 

4 4 
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N« 
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task? 
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7.746 

TASKj 

Ms 

11 , 

SORT* 

3.317 

task? 

N = 

61, 

SQRTs 

7.810 

task) 

N 3 

12, 

SQRT = 

3.464 

task? 

N = 

62, 

SORT* 
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20# 
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70, 
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21, 
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SQRTs 
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76, 

SORTS 

8.718 

TASK 1 

N = 

27, 

SORTS 
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N* 

28, 
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78, 
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Figure 2-7. FORTRAN/RTX Example (Cont’d) 
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SQRT*. 

SQRT* 

SQRT 3 

SORT® 
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SQRT® 

SORT® 

SORT® 

SQRT* 

SQRT® 

SORT* 

SQRT* 

SORT* 

SQRT* 

SQRT* 

SQRT* 

SORT® 

SORT* 
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9.274 
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6 ’. 325 
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SQRTs 
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SORT* 6.481 
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Figure 2-7. FORTRAN/RTX Example (Cont’d) 
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f' 

| and for the tasks to be run simultaneously 

I , 
li. 

I TASK1 

|’ TASK2 

Ji ; 

The equated value "NN" specifies the number of RTX work area blocks needed for the 
?! two tasks (refer to the RTX User's Manual for a discussion of how to determine the number 
of blocks required) . 

F: MAIN is the Mainline entry point where the tables and tasks are initialized by the "RTX:" 
routine. 

"WKAREA" is the actual work area reserved for RTX usage; its size is the number of 
blocks (NN) times 5. 

"START" is the point at which the tasks are initiated, by calls to the RTX BEGIN: routine. 
Note that in this example both tasks are begun at the same priority (100). Thus the tasks 
will vie with each other for the use of the printer and the library functions they both 
<*quiro. (Refer to the RTX User's Manual for a discussion of task priorities.) 

After the tasks have been initiated , a call is made to the RTX END: routine to terminate 
the mainline sequence. 

The Unit Assignment Table (UAT) begins at "UATTOP" and ends at I:UAT. Note that 
the NAM directive must point to the end of the UAT, not the start, and it must be called 
"I: UAT: "; this is the name RTX references externally to access the table. Each table 
entry is two words in length, the first being the FORTRAN unit number referenced in 
the tasks' I/O statements, and the second being the DIB label corresponding to the physical 
device. Refer to the RTX User's Manual for a complete list of DIB labels. In addition 
to tne. unit numbers, an entry must exist for a 'CO' device, for use by the FORTRAN PAUSE 
and STOP calls. 

The last word in th, table represents the negative length of the table (including the length 
word itself) plus one, that is, - (L + 1). 

id;- Slacks in the "uimo e Two f ‘hern are rsec. for ‘he nrinter 











ComputerAutomatton 



T3 (Compile for Execution on an LSI-3/05 Processor 

This option must be specified when a FORTRAN program is to be compiled for execution 
in an LSI- 3/05 processor. Since OS is not supported on the 3/05, FORTRAN will 
assume that the RTX option is required, even if you do not specify RT as a parameter. 
Therefore, everthing described in the RTX option (above) automatically applies to 
the T3 option as well. 

The sample listings shown above in the RTX option discussion are reproduced below in 
LSl-3/05 1 object code (see Figure 2-8). The only real differences in the two sets of 
examples are the actual machine language code, of course, and the fact that the 3/05 
Mainline sequence assumes the use of an I/O Distributor system for input and output. 
(The RTX User’s Manual contains the DIB names for these devices.) Also, certain in¬ 
line assembly language instructions do not exist on the LSI-3/05, and are performed 
by an emulator routine which is part of the FORTRAN library for the 3/05 (F3RXLB). 
These instructions are marked with an asterisk in Section 8 of the FORTRAN Reference 
Manual. Note also that three of these instructions (SCM, SCMB and IPX) are not 
allowed under the T3 option. 
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Figure 2-8. FORTRAN/RTX Example for Ml-3/05 
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Figure 2-8. FORTRAN/RTX Example for LSI-3/05 (Con't) 
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COMPILER DIAGNOSTICS 

The compiler can produce several different kinds of diagnostics (see figure 2-9 for 
examples) Most are detected during the Scan phase and are printed on the source 
listing immediately following the statement in error. A dollar sign is printed 
underneath the position at which the error was detected, followed by a brief message. 
For example: 

DIMENSION BETA (0,10) 

$ 

01) DIMENSION OUT OF BOUNDS E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E* 

The E's serve as a marker to make the message stand out and also signify "Error". 

This indicates that the statement could not be processed. Instead, a call to a run¬ 
time error routine is generated. Thus if any statement with an "E" type error is 
executed, a run-time diagnostic will occur. 

Other errors are not so severe and can be recovered from. These are called Warnings, 
and they have the same format, except that the E's are replaced by W's For example: 

FORMAT(3X,F10.3, ,16) 

$ $ 

01) LABEL MISSING W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W* 

02) EXTRA COMMA W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W* 

As shown above, it is possible to get more than one warning (and/or more than one 
error) on the same statement. In this case the numbers at the left of each diagnostic 
message indicate which dollar sign is referred to, counting from left to right. 

Most of the messages are self-explanatory; however, Appendix D lists them with 

explanations of their cause. 

The second group of diagnostics is produced during the Allocate phase. These are 
listed in the appendix, and include undefined labels, storage allocation conflicts 
(caused by COMMON or EQUIVALENCE), and storage overflow. These are all listed as 
"E" type errors, since there is no reasonable recovery, but most do not generate any 
run-time error call since they are not attached to any specific statement. Some cf 
them are followed by a list of labels or variable names that are in error. For 
example: 

UNDEFINED LABELS E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E*E* 

? FIRST REF AT LINE 26 

296 FIRST REF AT LINE 132 

The third group consists of the diagnostics produced during the Gen phase. There 
are only two such errors, and they both pertain to in-line assembly language. They 
are printed in the object listing, out to the right of a simulated assembly language 
instruction that has been generated. If no object listing is being printed, the 
line with the error will be printed anyway, to make sure of'signalling the error. 

These diagnostics are listed in Appendix D. 
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The fourth group includes diagnostics that are not caused by source program error, 
but by compiler inability to continue. These errors always cause the compilation to be 
aborted. They have the following format: 

FORT ER ptt 

where p identifies the phase of the compiler that was operating: 


p 

= 1 

Scan 


2 

Allocation 


3 

Gen 

and tt 

identifies the type of error: 

tt 

= 11 

Pointer overflow 


18 

I/O error during overlay loading 


21 

Working storage overflow 


28 

Memory overflow during overlay loading 

© 

31 

Compiler error 

38 

Illegal type code during overlay loading 


41 

Compiler error 


51 

Compiler error during collapse 


Except for 21 and 28, all of these result from hardware or software errors. If they occur 
in a reproducible way, they are probably software errors, which should be reported. 

28 indicates that the compiler will not fit in memory. 21 indicates that the program cannot 
be compiled in the given amount of memory. 


Q 
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Section 3 

LIBRARY STRUCTURE AND LINKING 


GENERMj 

A compiled FORTRAN program contains references to external subprograms. These 
references may be generated by: 

1. EXTERNAL and CALL statements to a specific SUBROUTINE subprogram. 

2. An external function, either library or user-defined. 

3. A compiler generated reference to the mathematical or I/O routines. 

References to these routines will appear within the object code listing and the 
subprogram usage map. In turn, these routines (the I/O routines in particular) may 
reference the OS or RTX I/O Interface routines which make the actual I/O calls to 
the OS or RTX drivers. 

. 

| Each of these subroutines must therefore be available for linking, either by being 
j compiled behind the main FORTRAN program in batch mode (if a FORTRAN subprogram), or 
| by being resident on the FORTRAN library file, which is normally found on the System 
File (SF) device. (See System Generation, section 5 for a discussion of generation 
and ordering of the FORTRAN library file). 

The following types of routines are resident on tl^e library file: 

j 1. The Basic External Functions , which are referenced by name within the FORTRAN 
statement. The function names are generally indicative of the functions, eg. 
j "SIN'*, J, SQRT", etc. (A complete list of the functions and their descriptions 

! ' is in the appendix). 

| 2. The Mathematical and I/O Routines are references created by the compiler during 

the generation of the object code. A naming convention has been established 
| for these routines whereby the routine name is of the form F:Exxx, F:Ixxx or 

| F:Rxxx. A complete list of these routines and their descriptions is in the 

| appendix. 

! 

t 3. The System I/O Interface routines are not referenced directly by the compiler: 

I rather they are called by the I/O routines mentioned in item 2 above. The 

j naihes of each of these routines are of the form "F:Xxxx"; a complete list is 

j shown and described in the appendix. 

4. The RTX/ IPX routines are the standard RTX and IOX FUNCTIONS which may be ref¬ 
erenced by in-line assembly language within a FORTRAN program executed under 
RTX control. The name of each routine is descriptive of its function (e.g. 
BEGIN:, END:, DELAY:), and contains a colon as its terminating character. 

These routines are described in detail in the RTX User’s Manual. 

5. The LSI-2 Instruction Emulator contains sequences used by FORTRAN when executing 
on an LSI-3/05 processor. These sequences emulate various LSI-2 instructions 
which do not exist in the LSI-3/05 computer. The emulator also includes 
within it a version of the LSI-3/05 software console routine. 
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The System Generation section of this manual describes the generation of the library. 
Specifically, three separate library files must be created, one to be linked for 
execution of the FORTRAN program under OS control (FrOSLB), and the other two for 
execution under RTX (FrRXLB for LSI-2 execution, and F3RXLB for LSI-3/05 execution). 
This allows the correct I/O Interface routines (OS or RTX) to be linked. 

LINKING (OS : LNK) 

Once a program has been compiled, it must be linked to various referenced library 
subprograms before it can be loaded and executed. OS:LNK, the standard OS link 
editor, performs this function. Its output is a self-contained module in absolute 
or relocatable binary format, including the FORTRAN program and all referenced 
library subroutines, which is suitable for loading by OS:LDR or the /EXECUTE or 
/LOAD commands (if it is to be run under OS control) or LAMBDA, BLD, or AUTOLOAD (if 
it is to be run under RTX). Note that OS:LDR and LAMBDA, which are "linking" loaders, 
cannot be used to link a FORTRAN program, because they do not recognize many of the 
special loader type codes generated by the compiler. 

The reader should refer to the OSrLNK description in the OS User’s Manual for detailed 
information regarding link editing. The following discussion encompasses those 
Inspects of OS:LNK most pertinent to the linking of FORTRAN programs. Note: OS:LNK 
version B 2 or higher should be used to link FORTRAN programs. 


I/O D evice Assignments 


The following logical devices must be assigned to specific physical devices prior to 
execution of OS:LNK: 

1. System File Device (SF). Assigned to the device containing OSrLNK itself. 

2. Binary Input Device (BI). Assigned to the file containing the binary output 
from the FORTRAN compiler (normally a magnetic file or the paper tape reader) . 


3. Library Input Device (LI). Assigned to the file containing the FORTRAN library 
module to be linked to the compiled binary code. As described in the System 
Generation section, three separate library files are normally constructed 
during generation; one for the OS Run-time library (F:OSLB), and two for the 
RTX Run-time library (F:RXLB for LSI-2 execution, or F3RXLB for LSI-3/05 
’ execution). 

! 4. Binary Output Device (BO). Assigned to the file which is to contain the linked 

binary output from OSrLNK. (Normally assigned to a magnetic file or the paper 
tape' punch). This file is loaded and executed at FORTRAN run-time. Note that 
if the FORTRAN program is to be run under control of RTX, then the BO device 
i must be assigned to the paper tape punch, since paper tape is the medium required 

by LAMBDA, BLD or AUTOLOAD, at execution time. 

5. List Output. File (LO). Assigned to the list output device (line printer) for 
output of the link map. 
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OS; LN K parameters 

OS: LNK permits several options to be input as parameters. These are described in 
the OS :LNK User's Manual and familiarity with them is assumed here. The standard 
sequences of options normally used for linking FORTRAN programs are discussed here. 


For Execution Under OS j 

t 

When linking for OS execution, the link process must take place within the same OS jj 

System as that to be used for execution, since various OS routines, (e.g., the I/O 
driver entry points) have fixed addresses which must be referenced in the linked | 

output. Thus the NH, SP, AB, RL and SR options need not be requested, because the S 

default addresses for these options are available to OS:LNK from within OS itself. 

Also the XA f XR and XS options are not required, since the FORTRAN object module j 

will contain the execution address (this is the memory address of the first executable j 
FORTRAN statement in the main program; i.e., the location defined as F:MAIN). A \ 

typical calling sequence might be: 

i 

/AS BI=DO.FPROG (name of compiled FORTRAN program) 

/AS LI=DO.F:OSLB j 

/AS B0=D1.EXPROG (executable output) 

/EX OS:LNK,LL,TE * 


In addition, the user may wish to utilize one or more of the following options: 

i, 

NB (Suppress binary output) 

NL (Suppress listing) 

II (Re-enable listing) 

MA (Output link map at end) 

(Refer to the OS:LNK description in the OS User's Manual for a discussion of the 
usage of these options.) 



J For Execution under RTX 

1 . 

When linking for RTX execution, the NH (or T3 if LSI-3/05) , AB (or RL) and SR options 
| are normally required, since the default addresses associated with these parameters 
are in relation to OS, and do not apply to the RTX system. Also, linking for the 
LSI-3/05 requires the SX option. 


NH or T3 This option specifies that the linked program is not intended to 

run under the host OS system. T3 should be used for LSI-3/05 
execution. 

AB (or PL) This option specifies the starting absolute or relative memory 

address for loading the executable program. This may be any 
address or bias; however, it is a good idea to avoid loading in 
the base page area, which is needed for scratchpad literals and 
address pointers. Normally an input of AB (or RL) = 100 is 
optimal for FORTRAN loading under RTX. 
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NOTE 

Using an absolute load location (AB=) insures that the 
linked output is loadable by BLD, AUTOLOAD, or LAMBDA. 

If relative linking (RL=) is used, only LAMBDA should 
be used for loading, since BLD and AUTOLOAD do not 
recognize all the possible type codes which may be 
generated by OS:LNK in Rel mode. 


SR 



This option specifies the starting address for any SREL (Relocatable 
Scratchpad) data encountered. RTX itself does not contain any SREL 
data; however, the FORTRAN compiler does output some in various object 
programs, and it always needs 20 SREL cells for its own subroutines, 
and they must be contiguous; these are used as temp cells, floating 
point accumulators, etc. When linking for LSI-2 execution, a usually 
safe location for SR is :60, since it is higher in memory than any of 
the standard interrupt locations. For LSI-3/05 execution, SR = 20 is 
recommended, because the addresses of some of the 20 SREL cells needed 
by the compiler are used as indexing offsets; if these cells are defined 
above location :3F, indirect index pointers will be created as needed, 
at the SX locations. 


SX This option is meaningful only for T3 linking, and specifies the starting 

address for indirect indexing pointers. On the LS}>2, indirect indexing 
pointers are lumped together with the SP pointers;"however, on the LSI- 
3/05, all indirect index pointers must reside below location :40, and 
so the SX option is required. These pointers are allocated beginning 
at the SX address, and continue upward, toward high memory. LSI-3/05 
RTX needs location zero, so the SX address should be at least :0001. 

The SP option is not required unless the user wishes to avoid using the default area 
for some specific reason. 

, 

The XA, XR, arid XS options are not generally required if the RTX main program contains 
the entry point "F:MAIN", as described in the RTX example in the compiler options 
section of this manual. 

An RTX program, since it contains tasks as well as library routines, requires the 

O tLNK user to assign the BI device to the Mainline file and the LI device to the file 
ataining the tasks, and then to re-assign LI to the library routines file. Also, 
since the resultant executable program must be loadable by LAMBDA, BLD, or AUTOLOAD, 

BO must be assigned,to paper tape. Thus, a typicai calling sequence might be: 


(for LSI-2 execution) 

/AS BI=D0.F:MAIN 
/AS LI-DO * TASKS 
/AS BO-PP 

/EX OS:LNK,NH,AB=100,SR=60,LL 
/AS LI-DO.F:RXLB 
LL, TE 


I 

i 
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(for LSI-3/05 execution) 

/AS BI=D0 F:MAIN 
/AS LI=D0.TASKS 
/AS BO=PP 

/EX OS:LNK,T3,AB=100,SR=20,SX=1,LL 

/AS LI=D0.F3RXLB 

LL,TE 

In addition, the user may wish to utilize one or more of the following options: 

NB (suppress binary output) 

NL (suppress listing) 

LI (re-enable listing) 

MA (output link map at end) 

(Refer to the OS:LNK description in the OS User's Manual for a discussion of these 

options.) 


] 

f 

i 


I 

i 

! 


i 


M emory Usage 

During the link process, memory is allocated as shown by the arrows in figures 3-1 and 
3-2. Note that this allocation information is being transferred to the BO device 
during OS:LNK; the actual data is not stored in memory until load time. 


/ 
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Memory location 

: 0000 


: nFFF 
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Indirect Indexing Pointers- 


Scratchpad Relocatable Data -f 


Scratchpad Literal Storage 


FORTRAN Main Program 
(F:MAIN) 


FORTRAN Tasks 


FORTRAN/RTX 
Library Routines 
(F:RXLB) 


OS:LNK option parameters 
SX= (LSI-3/05 only) 


SR= 


•SP= 


AB= (or RL=) 


LL 


LL 


o 

Figure 3-2. OS:LNK Memory Allocation Map for RTX Execution 


OS : LNK Memory Map 


As each input file is processed by 0S:LNK, a list of undefined references (if any) 
is output to the list device. This listing may be suppressed by the NL option. 

Upon input to OS :LNK of a Terminate (TE) parameter, a memory map is output, which 
lists each eKternal definition and COMMON allocation, with its associated memory 
location (which may be absolute or relocatable, depending on the "AB" or "RL" option 
input to OS: LNK). Figure 3-3 is the memory map generated by linking the LSI-3/05 
RTX sample program from Figure 2-8. 
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* The created file name is listed first, followed by a list of missing names (undefined 
J references), if any. This is followed by a listing of defined references and their 

* addresses. This listing is in order of occurrence, reading from left to right 
J across each line. * 

| Following the list of definitions, the COMMON areas are described with their lengths 
! and starting addresses. Blank COMMON is not allocated to a particular memory loca- 
; tion by OS:LNK until input of the "TE" parameter, and so it generally has the highest 
? address of all the linked modules. Labeled COMMON, however, is allocated upon its 
first occurrence when passing through OS:LNK. The OS:LNK memory map concludes with 
\ a list of address ranges required for scratchpad (literals and input data) and main 
memory usage, a map of scratchpad usage, and the execution address (normally the 
I location of F:MAIN or DEBUG) 


OS:LNK Error Reporting 

During the link process, various error conditions may occur. These errors may be 
grouped into three types of messages: 



Diagnostics. Output to the LO device as they are encountered. They indicate 
memory usage conflict of various forms, and are usually caused by scratchpad or 
main memory overflow, or an attempt to store data into a scratchpad location 
already occupied. These errors do not terminate OS:LNK, but may produce 
erroneous results during program execution. 


2. Termination errors. Output to the CO and LO devices, indicating an error which 
prevents OS:LNK from completing the link operation. A memory map is printed at 
this time, and OS:LNK terminates. 


3. I/O errors. Output to the CO device, and reflect an error status returned from 
OS following an I/O operation. 


A complete list of QS:LNK error messages may be found in Appendix D. 
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Section 4 


RUN-TIME 


INTRODUCTION 

Once the FORTRAN program has been successfully compiled and link edited, it is ready 
to be Loaded and executed. Prior to this time, however, consideration should be 
given to the I/O operations which will be performed during execution. 


I/O DEVICE ASSIGNMENT 

All input/output operations specified in the FORTRAN source program (READ, WRITE, 
INPUT, OUTPUT, BACKSPACE, REWIND, and END FILE) make use of FORTRAN unit numbers (1 
through 99) to specify the particular device on which the I/O operation is to be 
performed. INPUT and OUTPUT statements do not include specific unit numbers, but 
imply input from logical unit 5 and output to logical unit 6. The other I/O state¬ 
ments must include a logical unit number, expressed either as an integer constant or 
a simple integer variable. Prior to execution of the program, any FORTRAN unit 
numbers used in the program must be assigned to specific I/O devices. In addition, 
the Command Output (CO) unit must be assigned to a device (normally the teletype) 
for output of PAUSE, STOP and run-time error messages; also, for. OS execution, a Cl 
assignment is required to enable the operator to resume a program following PAUSE 
suspension. - 


Device Assignment for Execution under OS 

For execution under OS, device assignment is accomplished by the /ASSIGN command. 
Usage of the /ASSIGN command, however, implies in turn that entries exist within the 
OS Logical Unit Table (LUT) for the FORTRAN unit numbers used in the FORTRAN source 
program. Thus, although the FORTRAN compiler will accept any logical unit number 
from 1 to 99, the FORTRAN programmer is limited to the unit numbers in the LUT. The 
standard OS systems distributed by Computer Automation, Inc., contain LUT entries 


FORTRAN units 

1 through 6 only. 

with the following default assignments: 

Unit 1 

Unassigned 


Unit 2 

Unassigned 


Unit 3 

Unassigned 


Unit 4 

Unassigned 


Unit 5 

Card Reader 


Unit 6 

Centronics Line 

Printer 


To add additional FORTRAN units to the table, or add default assignments to unassigned 
units, re-assemble the OS ROOT program with the desired changes and re-generate your 
OS system; it is also necessary to as add a File Control Block (FCB) entry to the 
FCB tables within the FORTRAN/OS library package, for each additional unit number. 
These procedures are fully described in Section 5, System Generation. 
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i ' • 

I The actual unit assignment is in the standard format, where the logical unit number 
? is specified as a one or two digit number, e.g.: 

| i /Assign 2=PR (assign FORTRAN unit 2 to the paper tape 

|| reader) 


/ASSIGN 03=D0.FILNAM (assign FORTRAN unit 3 to a file on disk 

unit 0) 


Note that usage of a bulk storage device requires that the device be previously 
labeled for OS (by using the OS:LBL utility). 



Devic e As signment for Execution Under RTX 

When preparing a FORTRAN program for execution under l:he Real Time Executive, device 
assignment is made by creation of a Unit Assignment Table, which should be assembled 
the RTX mainline program. Refer to the RTX option description in the Compiler 
Opticas section for a discussion of the Unit Assignment Table. 


FORMS CONTROL FOR LIST DEVICES I 

I Forms control for printed output to the line printer or teletype is accomplished by 
use of a carriage control character. This character must occupy the first position 
of any print line, and is never printed. (Exception: when using the free-form 
j OUTPUT statement, output always begins in column 2 of the printer; thus allowance 
I for a carriage control character is not necessary.) 

I The carriage control characters and their functions are as follows: 


Character Function 


1 

0 


Any other 


Causes page eject (top of form) before printing 
Causes double up space before printing 
Causes single up space before printing 


(Note that Overprint capability is not supported.) 


The carriage control capability is useful for printing data in a user-defined format, 
* such as report generation. Judicious use of these control characters will enable 
various formatting arrangements of the printer output. (There are 54 lines to a 
printer page.) Note that the user who does not wish to use carriage control and 
merely wants single spaced output must insure that the print line does not contain a 
M l" or "0" in column 1. This is most easily done by using the OUTPUT statement, or 
by beginning the FORMAT statement with a lHb format. 


j 



J 
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POSITIONING CONTROL FOR MAGNETIC DEVICES i 

- ------- -- - ■---- — . .■■—■■ ■ ...- - t 

I 

\ 

The REWIND, BACKSPACE, and END FILE statements are for magnetic devices only and are j 
described in the FORTRAN Reference Manual in relation to magnetic tape or cassette | 

usage* For operation to a disk file, the internal operation is slightly different 
(for example, an end-of-file mark is a normal record with a special character in the J 

first word rather than a hardware function as on magnetic tape) , however, the user j 

may use these functions just as he would for magnetic tape or cassette. A BACKSPACE 
statement will cause the disk to reposition itself to the previous record to be re- J 

read or re-written, a REWIND statement will reposition the disk to the start of the 
file, etc. (This is not done by actual physical repositioning, but rather by re- j 

setting the current relative record number internally by the OS File Manager or RTX 
disk handler.) ! 


PROGRAM LOADING PRIOR TO EXECUTION 

The procedure used fox loading a linked FORTRAN program basically depends on whether 
the program is to execute under OS or RTX control. 


Loading for OS Execution 

/ 

OS is executed under the same OS system used to link the program. The following 
sequence may be used: 

a. Issue a /JOB command to initialize the unit assignments. 

b. Assign all pertinent FORTRAN unit numbers to the required physical devices. 

c. Assign the SF (System File) unit to the device containing the linked 
FORTRAN program. 

d. Issue an /EXECUTE command to load and execute the program. 
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Loading for RTX Execution 

For execution under RTX, the linked FORTRAN program, may be loaded by one of the 
following loader programs: 

1. LAMBDA linking loader 

2 . OS :ILD 

3. B.LD binary loader 

4. AUTOLOAD 

5. DLD (LSI-3/05 only) 

Note that if relative linking was used during the OSrLNK procedure (RL=), certain 
type codes may have been output which are not recognized by BLD or AUTOLOAD. IF 
linked in absolute mode (AB=), any binary loader may be used. 


Refer to the documentation of the desired loader for specific operating instructions. 

1 * 

! ? 

i i 

! Errors During the Load Procedure 

If a load error occurs during the loading procedure, consult the documentation for 
! ffc j applicable loader. A memory overflow error indicates that the linked FORTRAN 
J/ program is too large, and may require re-compilation using some form of coding 
| : optirrb zation. Output of an object code listing during compilation can ,aid the 
i i programmer in this respect. 


PROGRAM EXECUTION 


Once the linked FORTRAN program has been loaded and execution has begun, various 
conditions can occur to which the user (or the operator) must respond. 


PAUSE Messages 

The PAUSE statement causes the message 
"PAUSE xxxxx" 

to be output to the Console Output (CO) device (which must have been previously 
signed). "xxxxx" represents a decimal number from 0 to 32767, and may assume any 
meaning the programmer wishes it to have, to the operator (e.g., a certain number 
may indicate that the operator is to load data records into an input device). 

When a PAUSE message occurs during execution under OS, it is automatically followed 
by a "suspended" condition, during which the operator may perform some required 
function. The program may then be resumed by inputting a "/RESUME*' command. (The 
/RESUME command must be input through the default assigned Cl device, normally the 
teletype keyboard, no matter which device is currently assigned as Cl). 
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Run-Time Error Handling 

Diagnostics at run-time can originate in either the FORTRAN library or the OS system. 
(Under RTX there are no system error messages.) The FORTRAN diagnostics axe output 
to the list device and the console, and have the form: 

* routine name’, 'message* ERROR AT :xxxx 

where :xxxx is the location of the call in the user program. In addition, under RTX 
this information will be followed by: 

PRI: ddddd 

where ddddd is the decimal value of the priority assigned to the task that was 
active. This helps in identifying the task. 

The FORTRAN run-time diagnostics are listed in the appendix, with the messages in 
alphabetic order (since the same message can often be produced by several routines). 
Note that occasionally there is no routine name given, e.g. NUMBER OF ARGUMENTS, 
since the name is not known at run time. The "comments" column explains the error 
and indicates whether it causes an abort or whether some recovery is made. 

When running under OS, some error conditions will be detected by the system rather 
than the FORTRAN library. You should be familiar with the OS User's Manual; however, 
the appendix shows the OS diagnostics that are relevant to FORTRAN jobs. In many 
cases, errors in the use of input/output files are detected at the time the file is 
opened. In FORTRAN this happens automatically the first time the file is used. 
Therefore some OS messages will appear only if the error is made on the first use of 
a unit number. For example, if you write on the line printer, then try to read from 
it, you will get a FORTRAN message, whereas if you tried to read from it first you 
would get an OS message. 

Note that OS messages are written on the console device, not on the listing device. 

In addition, some of them cause the program to be suspended, in which case recovery 
must be made at the console before resuming (for example, by reassigning a unit 
number or readying a device.) If OS returns, instead of suspending, there will 
typically be a FORTRAN error message that follows. The OS message, then, will 
identify the device or unit number, while the FORTRAN message will identify the 
operation that was being performed (e.g. FORMATTED, BACKSPACE) and the location of 
the call. In addition, some of these will cause the ERR= exit to be taken, if this 
option was specified in the READ or WRITE statement. In the appendix, the second 
column of these messages shows whether OS returns or suspends. The last column 
explains the error. 


Console Interrupt 


Console interrupt is not enabled when executing FORTRAN under RTX. Under OS, however 
console interrupt is enabled at all times, and may be used to pass control back to th 
OS Executive. The FORTRAN program is normally resumable once it has been interrupted 
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Section 5 
SYSTEM GENERATION 


INTRODUCTION 

The ALPHA LSI FORTRAN IV System is delivered as several separate files, from which the 
user may configure his system to meet his individual requirements. These files are 
available on various types of media (paper tape, disk cartridges, etc.). The examples 
in this section assume floppy disk. If the user's files are on another medium, he 
should alter the generation procedure in accordance with his requirements. 

GENERATING THE FORTRAN COMPILER 

When delivered, the FORTRAN compiler resides on the following files: 

F:CROT (96510-30) 

F:CFAC (96510-31) 

F:CSCN (96511-30) 

F:CSCO (96511-31) 

F:COSl (96511-32) 

F:C0S2 (96511-33) 

FsCALL / (96512-30) 

F:CGEN (96513-30) 

F:CGEO (96513-31) For LSI-2 Run-time 

F:COG1 (96513-32) 

F:COG2 (96511-33) 

F:CGE3 (96513-34) 

F:CGE4 (96513-35) For LSI-3/05 Run-time 

F:COG5 (96513-36) 

F:COG6 (96513-37) 

F:CRT3 (96510-33) 

The above listed files comprise the several parts of the compiler: 

1. The Compiler "Control" program consists of the Compiler Root (F:CROT), and the 
Compiler I/O Interface (F:CFAC), which must be linked together by the user into a 
single file, called "FORT:4". This is the file that is actually called by the 
operator to begin a compilation. 

2. The Scan phase is provided in two forms, one or the other of which is called by 
FORT:4 depending on the amount of available memory the user's system contains. 

If more than 16K words of memory, FORT:4 will automatically call in the "complete" 
Scan module (F:CSCN) at Scan time. If the system has only 16K, FORT:4 will 
automatically call in the three Scan overlays (F:CSCO, F:C0S1 and F:COS2) as 
needed. 

3. The Allocate phase is provided in non-overlayed ("complete") format only (F:CALL), 
as it is small enough to fit, with FORT:4, into 16K of memory. 


Compiler Root 
Compiler Interface 
Compiler Scan (Complete) 
Compiler Scan Overlay 1 
Compiler Scan Overlay 2 
Compiler Scan Overlay 3 
Compiler Allocate Module 
Compiler Gen (Complete) 
Compiler Gen Overlay 1 
Compiler Gen Overlay 2 
Compiler Gen Overlay 3 
Compiler Gen (Complete) 
Compiler Gen Overlay 1 
Compiler Gen Overlay 2 
Compiler Gen Overlay 3 
Compiler Root LSI-3/05 
Overlay 
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4. The Gen phase for LSI-2 programs is, like Scan, provided in two forms; F:CGi :i 
(the complete Gen module) is called if more than 16K of memory exists; otherwise, 
the three Gen overlays (F:CGEO, FrCOGl and F:C0G2) are called in as needed. 

5. The Gen phase for LSI-3/05 programs has an exact correspondence to the LSI-2 
Gen, except that LSI-3/05 versions are used when the T3 option is specified. 

F: CGE3 is called when more than 16K of memory is present; otherwise the overlays 
F:CGE4, F:C0G5 and F:C0G6 are used. 

6. Besides determining which Gen to use, the T3 option also causes that part of the 
Root which contains the LSI-2 instruction skeletons to be overlayed by F:CRT3, 
which is the equivalent list of LSI-3/05 instruction skeletons. 
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Figure 5-1 shows the compiler configuration in memory when more than 16K is present. 
The Scan f Allocate, and Gen phases share memory by overlaying each other, as shown. 

Figure 5-2 shows the compiler configuration when only 16K memory is present. Note 
that F:CSCO, F;CALL, and F:CGEO all share memory by overlaying each other. In ad¬ 
dition, F:CSCO contains within it an area which is shared by F:C0S1 and F:C0S2 in 
overlay fashion. Likewise, F:CGEO contains F:C0G1 and F:C0G2 within it, which overlay 
each other. 


:0000 


>16K 


Figure 5-1. Compiler configuration when more than 16K memory 

: 0000 


o 


16 K 

Figure 5-2. Compiler Configuration with 16K memory 


OS 

FORT:4 i 

F:CSCO 

F:CALL 

F:CGEO or F:CGE4 

F:C0S1 

F:COS 2 

F:COG1 

or 

F:COG5 

F:COG2 

or 

F:COG6 

F:CSCO 

F:CGEO 

or 

F:CGE4 

Working Storage 


OS 


FORT:4 


F:CSCN 
(overlay) 


F:CALL 
(overlay) 


F: CGEN or F-.CGE3 
(overlay) 


Working Storage 


5-2 








ComputorAutomitton 


The generation procedure consists of two main steps: 

STEP 1: Copy the F:CROT and F:CFAC modules to the system file device using the 

OS:CPY utility, then link them together into FORT:4 using the OS:LNK utility 

1. /JOB 

2. /EX OS:CPY 

3. CB,FO.F:CROT,DO.F:CROT 

4. CB,FO.F:CFAC,DO.F:CFAC,TE 

5. /JOB 

6. /AS BI=DO.F:CROT,LI=DO.F:CFAC,BO=DO.FORT:4 

7. /EX OS:LNK,LL,TE 

STEP 2: Copy each of the remaining compiler modules to the system device, using the 

OS:CPY utility: 

1. /JOB 

2. /EX OS:CPY 

3. CB,FO.F:CRT3,DO,F:CRT3 

4. CB,FO.F:CSCN/DO,F:CSCN 

5. CB,FO.F:CSCO,DO.F:CSCO 

6. CB,FO.F:COSl,DO.F:C0S1 

7. CB,FO.F:COS2,D0.F:COS2 

8. CB,FO.F:CALL,DO.F:CALL 

9. CB,FO.F:CGEN,DO.F:CGEN 

10. CB,FO.F:CGEO,DO.F:CGEO 

11. CB,FO.F:COG1,DO.F:COG1 

12. CB,F0,F:COG2,DO.F:COG2 

13. CB,FO.F:CGE3,DO.F:CGE3 

14. CB,FO.F:CGE4,DO.F:CGE4 

15. CB,FO.F:COG5,DO.F:COG5 

16. CB,FO.F:COG6,DO.F:COG6 

GENERATING THE FORTRAN LIBRARY FILE 

The delivered files include several routines which must be merged by the user (using 

the OS:CPY utility) onto the system file device as one of two library files. Since a 

FORTRAN program may be compiled to run under either OS or RTX, and since these opera¬ 
ting systems require different library routines, a single library file may not be 
created which will serve the purposes of both the OS and the RTX system. This means 
that three distinct library files must be generated, one for OS execution and two for 
RTX execution (LSI-2 and LSI-3/05 versions). The following file names have been 
established to differentiate the libraries: 

F;OSLB (for execution under OS) 

B':RXLB (for LSI-2 execution under RTX) 

F3RXLB (for LSI-3/05 execution under RTX) 

The following sections describe the generation procedures for these files: 

OS Run-time Library Generation (F:OSLB) 

1. FORTRAN LSI-2 Basic External Functions Library Module (F:EXTR) (96514-30) 

2. FORTRAN LSI-2 Math and I/O Routines Library Module (F:MATH) (96514-31) 

3. FORTRAN/OS I/O Interface Module (F:OS10) (96515-30) 
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The modules must be merged into one system device file, named F:OSLB. The order shown 
above reflects the order in which the modules must reside in the library file, to 
enable the OS :LNK utility to link edit a FORTRAN program in a single pass. 

The following procedure will merge these modules as required for correct linking: 


1. (Operator mounts the FORTRAN library modules diskette on unit FO) 

2. /JOB . * ‘ 

3. /EX OS:CPY 

4. MB, FO.F:EXTR,DO.F:OSLB 

5. (QS:CPY merges the Basic External module and outputs the "READY NEXT FILE" 

MESSAGE). 

6. FO.F:MATH 

7. (OS:CPY merges the Math and I/O Routines module and outputs the "READY NEXT FILE" 

message) 

8. FO.F:OSIO 

9. (OS: CPY merges the FORTRAN/OS I/O Interface module, then outputs the "READY NEXT 

FILE" message) 

10. MT,TE 

• - 2 KT X Run-time Library Generation (F:RXLB) 

The following five modules comprise the LSI-2 RTX Run-time Library: 

1. FORTRAN LSI-2 Basic External Functions Library Module (FrEXTR) (96514-30) 

2. LSI-2 RTX/ IOX Segment 1 module* (93300-30) 

3. FORTRAN LSI-2 Math and I/O Routines Library module (F:MATH) (96514-31) 

4. r 0RTRAN/RTX LSI-2 I/O Interface module (F:RX10) (96516-30) 

5. LSI-2 RTX/IOX Segment 2 module* (93300-31) 

*included in the RTX Software Package 


These modules must be merged into one system device file, named F:RXLB. The order 
shown above reflects the order in which the modules must reside in the library file, 
to enable the OS: LNK utility to link edit a FORTRAN program in a single pass. 


The following procedure will merge these modules as required for correct linking: 


O 


4. 

5. 


6 . 

7. 

8 . 


9. 

10 . 

11 . 

12 . 


(Operator mounts the FORTRAN Library Modules diskette on unit F0) 

/JOB 

/EX OS: CPY 

MB,F0.F:EXTR,DO.F:RXLB 

(OS:CPY merges the Basic External Functions routine, then outputs the "READY NEXT 
FILE" message) 

(Operator mounts the LSI-2 RTX/IOX Segment 1 module tape into the paper tape 

reader) 

PR 

(OS:CPY merges the RTX/IOX Segment 1 module, then outputs the "READY NEXT FILE" 

message) 

FO.FsMATH 

{OS:CPY merges the FORTRAN Math and I/O routines module, then outputs the "READY 

NEXT FILE" message) 

FO.FjRXIO 

(OS:CPY merges the FORTRAN/RTX I/O Interface module, then outputs the "READY NEXT 

FILE" message) 

(Operator mounts the LSI-2 RTX/IOX Segment 2 module tape into the pacer' tape 
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14. PR 

15. (OS:CPY merges the RTX/IOX Segment 2 module, then outputs the "READY NEXT FILE" 
message) 

16. MT, TE 

LSI-3/Q5 RTX Run-time Library Generation (F3RXLB) ' 1 

The following six modules comprise the LSI-3/05 RTX Run-time library: 

1. FORTRAN LSI-3/05 Basic External Functions library module (F3EXTR) (96514-32) 

2. LSI-3/05 RTX/IOX Segment 1 module* (93301-30) 

3. FORTRAN LSI-3/05 Math and I/O Routines library module (F3MATH) (96514-33) 

4. FORTRAN/RTX LSI-3/05 I/O Interface module (F3RXIO) (96516-31) 

5. FORTRAN LSI-2 to LSI-3/05 Instruction Emulator and Software Console module 
(F3EMU.L) (96516-32) 

6 . LSI-3/05 RTX/IOX Segment 2 module* (93301-31) 

*included in the RTX Software Package 

These modules must be merged into one system device file, named F3RXLB. The order 
shown above reflects the order in which the modules must reside in the library file, 
to enable OS:LNK to link edit a FORTRAN program in a single pass. 

The following procedure will merge these modules as required for correct linking: 


1 . 

2 . 

3. 

4. 

5. 

6 . 


1 7. 

8 . 

9. 

10 . 


© ■ 11 . 
i 12. 


13. 

14. 


15. 

16. 

17. 

18. 


(Operator mounts the FORTRAN library modules diskette on unit F0) 

/JOB 

/EX OS:CPY 

MB,F0.F3EXTR,DO.F3RXLB x 

(OS: CPY merges the Basic External Functions, then outputs "READY NEXT FILE" 
message) 

(Operator mounts the LSI-3/05 RTX/IOX Segment 1 module tape into the paper tape 
reader) 


PR 

(OS:CPY merges RTX Segment 1, then outputs "READY NEXT FILE" message) 

F0.F3MATH 

(OS:CPY merges the FORTRAN Math and I/O Routines, then outputs "READY NEXT FILE" 
message) 

F0.F3RXIO 

(OS:CPY merges the FORTRAN/RTX I/O Interface module, then outputs "READY NEXT 
FILE" message) 


F0.F3EMUL 

(OS :CPY merges the FORTRAN Emulator and Software Console Routine module, then 
outputs "READY NEXT FILE" message) 

(Operator mounts the LSI-3/05 RTX/IOX Segment 2 module tape into the paper tape 
reader) 


PR 


(OS:CPY merges RTX Segment 2, then outputs "READY NEXT FILE" message) 
MT, TE 


ADDING OR REPLACING LIBRARY PROGRAMS 

The ordering of the routines on the FORTRAN library files F:OSLB r F:RXLB and F3RXLB is 
an important consideration, for two reasons: 


5-5 





1 . 


ComputsrAulomation 


The standard ordering described in the Library Generation section is such that 
OS:LNK can link edit the FORTRAN program vith the library in a single pass. 

2 . In the RTX libraries the modules which are Loaded between RTX/IOX Segments 1 and 
2 are those which are otherwise vulnerable to re-entrance. RTX contains logic 
which assists in preventing re-entrance to the routines within its boundaries by 
a subsequent call before the first call has completed. 

Thus alteration of a library file to add or replace a program must take these ordering 
actors into account. Basically , the user must be sure that the first reference to a 
routine occurs prior to that routine's being passed through the link editor, so as to 

insure its being loaded. 

/ith these considerations in mind, the user has various methods at his disposal in 
altering the library, as described below. 

To replace a library module with another (as in an update) the user should follow the 
1 Library Generation description, substituting the new module for the old one. 

| ■ 

del a new routine to the library, or to replace a single routine on the library 
| :;h was originally catalogued from a paper tape module containing other routines 

which the user wishes to retain), the user may regenerate the library file by fol¬ 
lowing the description in the Library Generation section, and merging in the new 
.i routine at the appropriate place, bearing in mind the ordering restrictions mentioned 
1 Above. If replacing a routine of the same name which already exists on a paper tape 
module, it is not necessary for the user to delete the old routine/ but simply to 
•merge in the new routine immediately preceding the tape module containing the old 
routine. Alternatively, if a new routine is referenced by the compiled FORTRAN program 
irather than from within some routine in the library file, the routine need not be 
included during library generation at all, but simply referenced as the LI file during 
j ?QS:LNK time. Once the new program has been linked, the LI file may be re-assigned to 
! the FORTRAN library before continuing with OS:LNK. 


ADDING FORTRAN LOGICAL UNIT NUMBERS TO OS 

i ^ 

The standard OS system contains within its Logical Unit Table (LUT) references to 
(FORTRAN units 1 through 6. The user may add additional entries for any unit number 
7 and 99, and set default assignments for any unit number to a specific 
jjlpsicai device (as is currently done for units 5 and 6, which are default-assigned to 
I the card reader and line printer, respectively). Adding FORTRAN unit numbers requires 
: alteration of two areas: the LUT table within OS Root, and the OS File Control Block 
j (FCB) tables within the OS I/O Interface (FiOSIO) in the OS Library File (F:OSLB). 


Altering the L UT in OS ROOT 

i - . ■ 

Each delivered OS system includes an OS Root, listing (96530-10), and its corresponding 
•source program paper tape. Changes to OS Root are most easily accomplished by addition, 
deletion, or replacement of source lines using the OS:SFE utility. 

!The logical unit table begins at the label "LUT:" in OS ROOT. Each entry in the table 

l is six words long, as follows: 


i 

i 
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Logical Unit name# in ASCII, 2 characters (word 1 may be given any 
label, as it is not referenced and is only for the convenience of the 
reader). 

Address of current physical unit (if using default assignment). 
Address of initial (default) physical unit (if using default assign¬ 
ment) . 

Used to hold a file name - should be set to zero at assembly time* 


In the standard setup, FORTRAN units 1 through 6 comprise the last six entries in the 
LUT. It is after these that additional units should be added. « 

Example: to add a unit (unassigned) to the LUT, the entry should be coded: 


DATA '07*,0,0 
RES 3,0 

The first data word, if the unit number is between 1 and 9, must be of the form 1 07*, 
not *7* or >57: the leading zero must be supplied. 

Example: to add unit 13 to the LUT, default-assigned to the high speed paper tape 

reader: 


DATA '13’, PR, PR 
RES 3,0 

Note that the second and third words must both contain addresses. The addresses used 
must be one of the labels which appear in the pnysical unit table. This table is 
found directly behind the logical unit table in OS Root, and begins at the label 
••PUT:". 


Once the OS Root source file has been edited with the desired changes, it may be 
assembled with OS:ASM, and the object output used to re-generate the OS system, 
following the description in the OS User 8 s Manual. 

OS File Control Block (FCB) Tables 


The standard OS File Control Block (FCB) Tables, which are part of the OS I/O Interface 
Module (FxOSIO), contains six File Control Blocks (for FORTRAN units 1 through 6) 
which are required by the OS I/O drivers during execution of a FORTRAN program under 
OS control. (Execution under RTX control does not require FCB tables and so F:RXLB 
and F3RXLB need not be altered when adding unit numbers.) 

The listing of the standard FCB tables is reproduced below (see Figure 5-3). Each FCB 
is referenced by the label F:RUnn, where nn is the FORTRAN unit number. 


The FCB table's for FORTRAN units 1-5 are separate programs, 
each terminated with an END statement, and reside prior to 
the Interface itself in the FORTRAN/OS I/O Interface Module 
(F:OS10). FORTRAN unit 6 is used to output run-time error 
messages, since it is the default OUTPUT device. Therefore, 
it is assembled within the interface itself, to insure its 
being linked unconditionally. 
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When the compiler encounters a reference to a unit number (e.g., an I/O statement such 
as "WRITE (3,25)") , it generates an external reference to F: RU03 and causes the corre¬ 
sponding FCB to be linked. 

In addition to the FCB's themselves, the FCB tables include three short programs, called 
F: RUNN , F: RUIN, and F: RUOT. Each is described below: 


F: RUNN Program 

If, during a FORTRAN compilation, the compiler encounters a statement of the form 

WRITE (JUNIT ,25) 

where JUN1T is an integer variable, the specific unit number is indeterminate, and the 
compiler does not know which FCB to reference. It therefore creates an external reference 
to F RUNN, which is merely a list of references to all FCB's. Thus linking of the F: RUNN 
4^ nirine causes loading of all FCB's. 


F: RUIN and F: RUOT Programs 1 

A FORTRAN INPUT statement does not reference any unit. Thus the compiler will reference 
F: RUIN, which in turn references F: RU05, the FCB for FORTRAN unit 5. Similarly, a 
FORTRAN OUTPUT statement causes the compiler to generate an external reference to 
F: RUOT, which in turn references F:RU()6, the FCB for FORTRAN unit 6. (In addition, 
the FORTRAN Run-time Error output routine outputs to unit 6. For this reason, unit 6 
should always be assigned to the list device.) 


FCB Format 

®^ach FCB is a block of 21 words in length: 

Word 1 - 


I Word 2 - 
Word 3 - 


Words 4-21 -must contain zero. 


A "CHAN" directive, which allows the I/O Interface to search through 
each linked FCB and compare Word 3 against the requested unit number. 
Word 1 must be labeled F: RUxx, where xx is the unit number. (Units 
1 through 9 must be labelled F: RU01 - F: RU09.) The chain operand must 
be F: RFCB. 

must contain zero. 

must contain the logical unit number, in ASCII, which matches the last 
two characters of Word l's label. 
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Adding FCBs to the Tables ' 

Adding one or more FCB’s to the OS Library requires the following: 

1. The F: RUNN table, which is referenced when a variable is used for a FORTRAN unit 
number, must be reassembled to include a reference to each new unit. Refer to the 
sample listing below, of the F: RUNN table, each entry of which is a LOAD instruction 
for the individual FCB table to be loaded. 

2. A 21-word FCB table must be assembled for each new unit number to be added, as de¬ 
scribed above. 

Once the new F: RUNN module and new FCB(s) have been assembled, re-generate the OS 

Library (F: OSLB) as described previously, merging the files as follows: 

(F: EXTR) 

(F: MATH) 


(F: OSIO) 


FORTRAN Basic External Functions 
FORTRAN Math and I/O Routines 
New F: RUNN Module 
New FCB tables 
FORTRAN/OS I/O Interface 
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0001 


LINE 

0002 


UJ,' ^ r ( 4 1.0 :48:46 LALLER TO FORTRRN/QS FCB'S 1-6 

INST ADDR LABEL MNEH OPERAND COMMENT 
* F : RUNN > 

+CUPVRIGHT 1974 COMPUTER AUTOMATION INC 

* 7Hl3 SEGMENT Is REFERENCED BV THE FORTRAN 
»E.T, IL "WRire N ^v' ENC “ JNTERS fi VflRIHBLE UNIT NUMBER 


NAM F:RUNN 
LORD F:RU01 
LOAD F:RU02 
LOAD F:RU03 
LOAD F.RIJ04 
LOAD F : RIJ65 
LOAD F:RU06 


CALL UNIT 1 FCB 
CALL UNIT 2 FCB 
CALL UNIT 3 FCB 
CALL UNIT 4 FCB 
CALL UNIT 5 FCB 
CALL UNIT 6 FCB 


F:RUNN END 


*0 ERRORS 


AGE •-'001 09/27/74 10:48:46 CALLER TO FORTRAN/OS INPUT FCB 

1NE LUC INST ADDR LABEL MNEM OPERAND COMMENT 
^ * <F:RUIN> 

+CUR VR1GHT , 1974 COMPUTER AUTOMAT I ON INC 

* * H1 -=• oEGMEN f IS REFERENCED BV THE FORTRAN 
-COMPILER WHEN IT ENCOUNTERS AN "INPUT" 

(p 4 -SOURCE STATEMENT <STANDARD INPUT UNIT IS 5>. 


025 0000 


000 ERRORS 


NAM F:RUIN CALL INPUT UNIT FCB 
LOAD F:RU05 CALL UNIT 5 FCB 
F.RUIN END 


Figure 5-3. Sample FCB Tables 
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E'AGR 

L1 NE 
0029 
003O 
0031 
0032 
0023 
0024 
0035 
0026 
002 ? 
0028 

0000 


RAGE 

LINE 

0040 
0041 
8042 
0042 
8044 
0045 
1046 
004? 
8048 
004 ? 

' .ti i 50 

0051 
0052 
8052 
0054 
5 1055 

0*000 


0001 09/27/74 10:48:46 CALLER TO FORTRAN /OS OUTPUT FCB 


LOG INST ADDR 


0000 


LABEL MNEM OPERAND COMMENT 

* <F:RUOT> 

♦COPYRIGHT 1974 COMPUTER AUTOMATION INC 

♦•this SEGMENT IS REFERENCED BV THE FORTRAN 
♦COMPILER WHEN IT ENCOUNTERS AN "OUTPUT" 

♦SOURCE STATEMENT. <STANDARD OUTPUT UNIT IS 

* 

NAM F.RUGT CALL OUTPUT UNIT FCB 
LOAD F:RU86 CALL UNIT 6 FCB 
F:ROOT END 


ERRORS 


0001 09/27/74 10:48:46 FORTRAN/OS FCB TABLES 

LOC INST ADDR LABEL MNEM OPERAND COMMENT 

♦ (. F : RU01 - F:RU06> 

♦COPYRIGHT 1974 COMPUTER AUTOMATION INC 

* 

♦ THIS PROGRAM CONTAINS SEVERAL 21-WORD 

♦TABLES TO BE USED BV THE FORTRAN/OS RUNTIME 
♦INTERFACE FOR FILE CONTROL BLOCKS. 


0000 

NAM 

F : RU01 

UNIT 1 

0000 

REL 

0 



* 




♦ UNIT 

A- 

1 FCB 


0000 

•T* 

F: RIJ01 CHAN 

F;RFCB 

CHAIN NODE 

0001 0000 

DATA 

0 

ECB 

0002 E0B1 

DATA 

•01" 

LUN 

0003 0000 

RES 

18, 0 



END 



ERRORS 





Figure 5-3. Sample FCB Tables (Cont’d) 




"ut 

0001 

097 k.* 7.* * 34 

10: 48 

: 46 


; he 

LOl 

INST RL'DR 

LABEL 

MNEM 

OPERAND 

;?56 

0000 



NAM 

F:RU02 

. j1 

00 00 



REu 

0 




•+ 



i59 

‘ >'» Ivl 



:+: 

*. L 

UNIT 

2 FCB 

Otl 

>61 

0000 


T’ 

T’ RUQ 

2 CHAN 

F : RFCB 


U001 

0000 


DATA 

0 

■**53 

0802: 

60B2 


DATA 

" 02 •" 


0003; 

01: i00 


RES 

18, 8 

6 b 




END 



100 T k’RORb- 


c 


•UE Out).! 09/27/74 10:48:46 


’NE 

LUC INST ADDR 

LABEL 

MNEM 

OPERAND 

■ 66 

0000 


NAM 

F RU03 

167 

!- 100 

•+ 

A< 

REL 

0 

*, 1 '"IT 1 *12* 

169 


UNIT 

3 FCB 

’ i KJ 

671 

U000 

T- 

F:RU03 

CHAN 

F:RFCB 

_ * i *t« i 

Oo01 0000 


DATA 

0 

# 

0002: B0B3 


DATA 

037 

■i 74 

0 J03 0000 


RES 

13, 0 

- 75 



END 


tit 

ERRORS 





Figure 5-3. Sample FCB 


COMMENT 
UNIT :& 


CHRIN NODE 

ECB 

LUN 


\ 

COMMENT 
UNIT 8 


CHAIN NODE 

ECB 

LUN 


Tables (Cont’d) 
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r HGE 

6001 03/27/74 

18:48: 

46 



Li Mb 

LOG INS'l ADDR 

LABEL 

MNEM 

OPERAND 

COMMENT 

0«T 6 

0000 


NAM 

F.RU04 

UNIT 4 

mu 

,111 

0000 


EEL 

0 


00,"‘9 
0080 


♦ 

UNIT 

4 FCB 


0081 

0000 

F: RU04 

CHAN 

F:RFCB 

CHAIN NODE 

f;1f. 10 2 

0001 0000 


DATA 

0 

ECB 

0083; 

U0O2 B0B4 


DATA 

04 ■' 

LUN 

1 ! 084 

0003 0000 


RES 

l8.« 0 


0080 



END 



000H 

ERROR' 






RAGE 

0001 03/27/74 

10:48: 

46 

{, 

LINE 

*•■■*086 

008? 

0088 

LUC INST flDDR 

•0000 

0000 

LABEL 

+■ 

MNEM OPERAND 
NAM F : RIJ05 
REL 6 

COMMENT 
UNIT 5 

0089 
» J090 


* 

UNIT 5 FCB 


0091 

U092 

0U98 

0094 

0095 

0000 

►.,001 0000 

0002 BOBO 

0003 0000 

F: RU05 

CHAN F:RFCB 
DATA 0 

DATA "05"' 

RES 18, 0 

END 

CHAIN NODE 

ECB 

LUN 

0000 

ERRORS 





Figure 5-3. Sample FCB Tables (Cont'd) 
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ADDING A DISK DIB TO THE RTX LIBRARY FILE 

' The following discussion appl.es to the user who wishes to create his own RTX disk (or 
j floppy disk) DIB (s) (Device Information Blocks) and to specify his own disk file 
boundaries. 

The standard (Non-FQRTRAN) disk DIB described in the RTX User's Manual differs somewhat 
from a disk DIB which is to be used in FORTRAN. Specifically, there exist within RTX 
two disk I/O handler routines, one for FORTRAN usage, and one for non-FORTRAN usage. 

The non-FORTRAN handler has no provision for writing or reading an end-of-file mark, 
and it also requires the user to maintain the current record number within the user’s 
IOB. Since the FORTRAN user has no access to the IOB (all RTX IOB's are built and 
. maintained within the I/O Interface module), a special disk handler for FORTRAN exists 
within RTX which allows for these differences. 

| 

\ Because the FORTRAN disk handler differs from the standard RTX disk handler, two 
j additional considerations must be made by the FORTRAN user when creating a disk DIB: 



The RTX Manual describes the disk DIB as a 15-word table. The FORTRAN disk 
handler in RTX requires an additional word (16 words in all) which is used to 
hold the current record number in the disk file. This word should contain a 
binary zero as its initial value. 


2. The FORTRAN Disk DIB name, which is referenced in the Unit Assignment Table must 
! be of; the form ”D:DKFx" (or "D:FDFx" if floppy disk), where x may be any alpha¬ 

rmmeric character. This format notifies the RTX disk handler that the DIB refers 

to a FORTRAN disk file. 

Figure 5-4 illustrates the proper format for a disk DIB for FORTRAN. The user should 
j assemble one of these DIB's for each file he wishes to create on the disk. If more 
than one, each DIB should terminate with an assembler END directive, so that it may be 
! linked to the FORTRAN program in library mode. Once the DIB has been created, the RTX 
I FORTRAN Library file may be re-generated, following the procedure described in this 
; .section, with the new DIB (s) inserted in front of the RTX/IOX Segment 1 module, which 
is the segment containing the standard DIBs. 

■ Alter! ifcively, the RTX Library does not need to be permanently changed. The user may 
nstend create the desired DIB (s), and include the module into the OS:LNK procedure 
1 Jm* 1 I 2 edit time, by linking the RTX mainline and tasks, then the new DIB module, 
■'i^Pan the Library file. 

\ 

i Figure 5-4 is a listing of one of the standard FORTRAN disk DIB’s which currently 
exist in RTX/IOX: 


5-14 










COMPUTER AUTOMATION. INC. 




0 ! ' 0 1 

39/? 
j: jk 

LINE 

yloS 

LOU 

1. j ST 

•J367 

dUidl 


U1C8 





i.; a 

01/fl 

4 301 


U37t 

j M J1 

'J.jd.i 


J^k)2 

0 Jd*i 


4303 

V M3 


«J 1 0 1 

1?';.) 



C4Cb 

Ul/’ 

'j'Klb 

r ( ,8i 


J0U7 

1 0 0 4 


<1108 

4 4/3 


0009 

0 4 3d 


j'MA 

A J 1 -J 


JOB 



0'10C 

It !'2 


JljD 

I'M.l 


41 «)E 

J 20 

017 3 

J00E 

4000 

J d 0 J 

errors 


wB:30:iy 94f>00-i<" XOX TABLES 
f OR I RAN r>j[SK LIB 

LABEL MnCM URLPAND r.OMMENT 

* <3 SEKltS DISK, REMOVABLE PLArTtR 

* r f 1,1MoEKS 0-19? 

NA M U:DKE1 

Ex fR l:uke 
u :t)KE i E.iju » 

EH Ah Xs: 

DA IA C ! OKI , 0,0, S 15DD, 'Dk ’ 


Dai A 'FI' ,0,0,1,14,0, :C02, 11800,4800,0 


EhO 


Figure 5-4. Sample FORTRAN Disk DIB 


USER-CREATED SUBPROGRAMS 


The user who wishes to write his own subprograms in FORTRAN Assembly language 
and CALL them from his main program should follow the calling and receiving sequences 
shown below , as this is the object code generated by a CALL statement. 

For execution under OS (RTX option not used) , 

CALL MYSUB (ARG1 ,ARG2. . .) 

will generate the following object code: 

JST *BP (MYSUB) 

DATA n (where n is the number of arguments) 

DATA ARG1 
DATA ARG2 
etc. 

For execution under RTX (RTX option used) , 

CALL MYSUB (ARG1 ,ARG2...) will generate the following object code: 
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f 


JST *BP (SUBR: ) 
DATA MYSUB 
DATA n 
DATA ARG1 
DATA ARG2 
DATA. .. 


COMPUTER AUTOMATION. INC. 


(where n is the number of arguments) 


The SUBR: routine prevents re-entrance for RTX usage; the user’s subprogram, to 
terminate the re-entrance-protecting effect of SUBR: , must include a call to SUBX: , as 
follows: -4N 


MYSUB 


JST 

ENT 

JMP 


SUBX: 


MYSUB-1 


Jnstead of RTN MYSUB, 


(on return from the routine) 


NOTE 


The same assembly language subprogram may be used under 
both OS and RTX monitors, if it is set up using the SUBX: call 
shown above. The OS library contains a "dummy” SUBX: routine 
(within F: OSIO) to handle this situation. 


Accessing Argumen ts 


If the called subprogram is required to handle arguments passed to it by the calling pro 
gram, then the user may access them using the F:RDMY library subprogram, which will 
move the arguments from the caller to the user's subprogram automatically: 


O 


CALL example 
Subprogram example 



CALL FRED 

(UP, DOWN, MES1, N) 

FRED 

ENT 

JST *BP (F: RDMY) 

DATA 4 (no. of arguments) 

UP 

RES 1 

DOWN 

RES 1 

ME SI 

RES 1 

N 

RES 1 


| RTN FRED 

| -V/; 

j '•••'' 
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Explanations: 

1 . The call to F: RDMY must immediately follow the subprogram's entry point; 

2. The word following this call must contain the correct number of arguments, since 
this is checked by F: RDMY against the number supplied; 

3. The following words, which may be labelled to correspond with the argument names, 
will be set by F:RDMY to the actual (base) address of each argument, the order corre¬ 
sponding to the order of arguments as shown; 

\ 

4. The address contained in the entry location labelled FRED will be updated appropri¬ 
ately to point to the first instruction beyond the code generated for the CALL statement. 

5. Even if no arguments are required, it is still necessary to put DATA 0 after the call 
to F:RDMY, which, having checked that no arguments were supplied and updated 
the return address, would return control to the subprogram at the instruction after 
the DATA 0 statement. 

From the above, it can be seen that F: RDMY provides a safe and straightforward method 
for acquiring arguments and setting the correct return address. It can of course be pro¬ 
grammed differently with the subprogram itself accessing the argument list via the address 
placed in the entry point. However the method shown is the Recommended one. 
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APPENDIX A 
DEBUGGING AIDS 


DEBUGGING AIDS 

During checkout of a FORTRAN program, the following aids are available to the user. 


Fort r an Trace Option 

The Trace option, when requested prior to a compilation, will cause the compiler to gener¬ 
ate, in addition to the normal object code, additional run-time calls which will cause 
the program to print a trace map onto unit 6 during execution. (Refer to compiler options 
section - Trace option) . 


OS: DBG, RTX ZBG 

The OS: DBG and RTX ZBG utility programs may be used in conjunction with the executing 
program, for breakpointing and other debugging capabilities (refer to the OS: DBG descrip¬ 
tion in the OS User's Manual or the ZBG description in the RTX User's Manual, for a 
complete description of these utilities). It will be necessary to include an object listing 
in the compilation, which may be used in conjunction with the OS: LNK memory map to 
follow the program flow during execution. 

Normally, the link map is used to set DEBUG relocation registers, and then breakpointing 
may be done using the FORTRAN object listing (s) . Observe the following precautions: 

1. FORTRAN object code is generally organized with various data areas beginning at 
relative location zero, followed by the executable code; thus F:MAIN, the starting 
location, will not normally be at relative location zero. The relocation register should 
be set to correspond with relative location zero, rather than F:MAIN. 

2. If the FORTRAN program to be debugged uses floating point values (Real, Double 
Precision or Complex), it will not be possible to breakpoint into a sequence of code 
which calls the Floating Point Interpreter. For example, the sample listing in Figure 
A-l contains object code for both integer and floating point processing: 
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I 000Ju 09/ 10/74 ±3:32:43 FORTRAN <X3> COMPILATION 

1 OPTIONS: LO 


,ai 

C 


i02 

c 

INTEGER PROCESSING 

503 

c 


104 


J=-13 

105 


K=IflBS<J*9> 

106 

c 


107* 

c 

FLOATING POINT PROCESSING 

,08 

c 


*09 


A=-13. 0 

110 


B=ABS<A+9 0.) 

111 


OUTPUT J> K, A, B 

1 12 


END 




® 00*2 09/10/74 13:32:43 FORTRAN <X3> COMPILATION 

OPTIONS: LO 

ALAR ALLOCATION 

tCN NAME TYPE WORDS LOCN NAME TYPE WORDS 

J000 J INTEGER 1 :0001 K INTEGER 1 

J002 A REAL 2 :0004 B REAL 2 

Figure A-1. Integer and Floating Point Sample Listing 

o 
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’AGE 0003: 


0001 C 
0002 C 
0003 C 
0004 


0005 


0006 C 
0007 C 
0008 C 
0009 


0010 


0011 


0012 


0 


09/10/7 4 
OPTIONS 


13.32:43 
LG 


FORTRAN <X3> COMPILATION 


INTEGER PROCESSING 
J=-13 

:0086 :C70D 
:0007 :9E07 

k=iabs<;j*9> 


0008 

0009 

000A 

000B 

000C 


F900 

0000 

3080 

0310 

9E8B 


#M0 

FLOATING POINT PROCESSING 

A=—13. 0 


LAM 

STA 

JST 

DATA 

JAP 

NAR 

STA 


13 

J 

*6P<F:RMPY> 

#IC1 

#M0 

K 


: 0009 


zure RPteTsh 

fAAtfi-O- /AJST/SO/T* 


c 



F900 

b 


JST 

*BP<F:RINT> 

:008E : 

"rhoo" 

F 


LDR 

#Rii0 

:000F : 

9E0D 



STA 

A 

B=ABS< A*9. 

0> 






0010 

8200 

F 


MPM 

#RC1 


0011 

0005 



ABS 



0012 

9E0E 



STA 

B 

OUTPUT J, y 

A; B 






001^ . 

0000. 



KIT 



0014 

F900 

B 


JST 

'♦'BP < F : ROUT > 


0015 

F900 

B 


JST 

*BP<F:RIGL> 


0016 

0000 



DATA 

J 


0017 

F900 

B 


JST 

*BP<F:RIOL> 


0018 

0001 



DATA 

K 


0019 

F900 

B 


JST 

*BP<F:RROL> 


00-lA 

0002 



DATA 

A 


001B 

F900 

B 


JST 

*BP<F:RROL> 


001C 

0004 



DATA 

B 


001D 

F900 

B 


JST 

+8P C F:RS10 > 

END 

001E 

F900 

B 


JST 

+BP<F:RSTO> 


001F 

0000 



DATA 

0 


0020 

0250 


#RC0 

DATA 

-15792 


0021 

0000 



DATA 

0 


0022 

4210 


#RC1 

DATA 

16912 


0023 

0000 



DATA 

0 


0024 

0009 


#IC1 

DATA 

9 


:C250:@000 


.4210:8000 




SUBPROGRAMS CALLED 

NAME TYPE ARGS 

JABS INTEGER 1 

F:RIOL RUNTIME 
F:RSTO RUNTIME 


NAME 

ABS 

F: RROL. 
F: RUNN 


TYPE 


ARGS 


REAL 1 

RUNTIME 

RUNTIME 


NAME 

F:ROUT 
F:RSIO 
F:RREL 


TYPE 

RUNTIME 

RUNTIME 

RUNTIME 


ARGS 


Figure A-l. Integer and Floating Point Sample Listing 
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FORTRAN <X3> COMPILATION 


( 'HUE 0004 09/10/74 13:32:43 

OPTIONS LO 

f ' ■ 

1 RF2 RUNTIME F:RFF RUNTIME F:RMPV RUNTIME 

f; RINT RUNTIME 

fj 

S TATEMENT LABELS 

CN LABEL USE LOCN LABEL USE LOCN LABEL USE 

I ■ .. ■ 

S00C #M0 

I n RV--: 0006 

□GRAM SIZE-.0025 WORDS 
5 iSE PAGE USED®:0087 WORDS 
. ’1PILATI0N COMPLETE 0 ERRORS 



Integer and Floating Point Sample Listing 
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The object code generated for the integer processing section (locations : 0006-: 000C) 
may be debugged using the breakpoint feature in the normal manner (note, however, 
that the data statement at location : 0009 is a parameter to the F: RMPY routine and is not 
executed. 

The object code generated for the floating point processing section (locations : 000D- 
: 0013), however, are not normal machine language instructions, but rather macro-instruc 
tions which are decoded by the floating point interpreter module (F: RINT) , and a break 
point inserted in this sequence will cause incorrect operation of the FORTRAN program . 
It is the XIT macro instruction which causes the program to return from the "interpretive 
mode" of operation back to normal machine language instruction processing. 

Thus it is permissible, in this example, to breakpoint from location : 000D to location 
: 0014, but not to breakpoint into this area. 

The following FORTRAN routines cause "interpretive mode" processing: 

F: RINT (Floating Point Interpreter) 

F: RCPX (Complex Arithmetic Processor) 

F: RDBL (Double Precision Arithmetic Processor) 

F: RREL (Real Arithmetic Processor) 


and should be recognized as such by the user. 


The following macro-instructions signal termination of "interpretive mode" processing: 

INT (Convert to Integer and Exit from Interpretive Mode) 

XIT (Exit from Interpretive Mode) 

XNL (Exit from Interpretive Mode but do not unlock. Required by RTX, this 
function protects the contents of the floating point accumulator.) 

They also indicate that the following instruction (not the exit instruction) may be used 
as a breakpoint. 
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APPENDIX B 
SAMPLE JOB SEQUENCES 

INTRODUCTION 


The following sequences are to serve as sample control commands for various procedures 
in compiling, linking and executing FORTRAN programs. (Examples of System Generation 
procedures and alteration of the libraries are shown in section 5 under their related 
headings.) ill examples assume card input. The compiled binary output is called 
PR0G1, and the linked (executable) binary output is called PROG2. T "I indicates 

optional parameters. *- -* 

To transfer control from the teletype keyboard to the card reader, enter 

/JOB 
/BA CR 

througu the keyboard. 


TO COMPILE, LINK AND EXECUTE UNDER OS s. 

~ “ _ i 

/AS BO* Du . PR0G1 

/EX FORT:4 f, option,option. . . J 

(FORTRAN source deck(s), each terminated with the END statement) 

/ k 

/ 

/AS BILL'D. PR0G1, LI=D0. F : OS LB, BO=DO. PROG 2 

/i. X OS : LNK, LL, TE 

/AS SF“~ DO T, also assign any required FORTRAN unit numbers at this 

/EX PROG2 L 

Data Deck (if any) , terminated with *'/*" 

/JOB (return Cl control to teletype) 


time 


j 


I TO COMPILE , LINK AND EXECUTE UNDER OS, USING OS:DBG 

, 

* 

/AS BO-DO.PR0G1 _ 

/EX FORT:4,LOBJ [,option,option.. .] 

(FORTRAN source deck(s), each terminated with an END statement) 

/* 

/AS BI-DO.PROG1,LI=DO.F:OSLB,BO=DO.PR0G2 

/EX OS:LNK,LL,TE 
/LO PROG 2 r 

/AS CI-TK |_, assign FORTRAN unit numbers at this timel 
Data Deck (if any) 

/* 


B-l 
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j Input via the keyboard: 

| /EX OS:DBG 

At this time, OS:DBG is entered; OS:DBG's relocation register RO is set to the start 
1 of the main program, which may not be the first executable instruction. (The execution 
address is noted on the OS:LNK memory map.) The FORTRAN object listing and OS:LNK 
! memory map will serve as reference listings during the debugging process. 

4 

> TO ASSEMBLE MAINLINE, COMPILE TASKS, LINK AND EXECUTE UNDER RTX 


(LSI-2 example) 

/JOB 

/AS BO=DO,F:MAIN 
/EX OS:ASM 

(Mainline source deck) 

,/AS BO=DO.TASKS r _ 

/EX FORT:4,RT I,option,option...1 

{FORTRAN task(s), each terminated with an END statement) 
/* 

'AS BI=DO.F:MAIN,LI=DO.TASKS,BO=DO.PROG 
/EX OS:LNK,NH,AB=100,SR=60,LL 
/AS LI=DO.F:RXLB 
LL, TE 

/EX OS:ILD,DO.PROG 

{LSI-3/05 example) 

/'JOB 

/AS BO=DO.F:MAIN 
/EX MACR03 

(Mainline source deck) 

/AS BO=DO.TASKS _ 

/EX FORT:4,T3 I,option,option.. .J 

(FORTRAN task(s), each terminated with an END statement) 

/ ■k 

/AS BI=DO.F:MAIN,LI=DO.TASKS,BO=FO.PROG 
j/ EX OS : LNK, T3, AB=100, SR=20, SX=1, LL 
/AS LI=DO.F3RXLB 
T.L , TE 


At this time, the linked PROG or floppy FO may be loaded into an LSI-3/05 processor 
I using the directoried Load/Dump program (DLD). 
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Appendix C 

FORTRAN RUN-TIME SUBPROGRAM LIST 


FORTRAN BASIC EXTERNAL FUNCTIONS 

Most of these functions reside in the F:EXTR (or F3EXTR) library module. Those preceded 
with an asterisk reside in the F:MATH (or F3MATH) module. 




ABS 

AIMAG 

AINT 

*ALOG 

*ALOG10 

AMAXO 

AMAXl 

AMINO 

AMINl 

AMOD 

ATAN 

AT AN 2 

*CABS 

ccos 

I CEXP 
CLOG 
CMPLX 
CONJG 

. *CGS 
*COSH 
CSIN 
CSQRT 
DATAN 
DATAN 2 
DBLE 
DCOS 
*DEXP 
DFLOAT 
DINT 
*DLOG 
*DLOG10 
DMAXO 
DMAXl 
DM I NO 
DMIN1 
DMOD 
DSIN 
DSQRT 


Real absolute value of a real argument 

Convert imaginary part of a complex value to real 

Truncate real argument to integer and back to real 

Real natural logarithm of a real argument 

Real common logarithm of a real argument 

Real maximum value of integer arguments 

Real maximum value of real arguments 

Real minimum value of integer arguments 

Real minimum value of real arguments 

Real remainder of real modulus real 

Real arctangent of real argument 

Real arctangent of two real coordinates 

Real absolute value of a complex argument 

Complex cosine of a complex argument 

Complex exponential of a complex argument 

Complex natural logarithm of a complex argument '■ 

Convert two real values to complex 

Conjugate a complex argument 

Real cosine of a real argument 

Hyperbolic cosine of a real argument 

Complex sine of a complex argument 

Complex square root of a complex argument 

Double prec, arc. tangent of a double prec. argument 

Double prec. arctangent of two double prec. coordinates 

Convert a double prec. value to integer 

Double prec. cosine of a double prec. argument 

Double prec. exponential of a double prec. argument 

Convert integer to double precision 

Truncate double prec. value to integer and back to double prec. 

Double prec. natural logarithm of a double prec. argument 

Double prec. common logarithm of a double prec. argument 

Double prec. maximum value of integer arguments 

Double prec. maximum value of double prec. arguments 

Double prec. minimum value of integer arguments 

Double prec. minimum value of double prec. arguments 

Double prec. remainder of double prec. modulus double prec. 

Double prec. sine of double prec. argument 

Double prec. square root of double prec. argument 
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DTAN 

DTANH 

*EXP 

FLOAT 

IDINT 

IFIX 

INT 

MAXO 

MAXI 

MINO 

MINI 

MOD 

REAL 

*SIN 

*SINH 

SNGL 

*SQRT 

TAN 

TANH 
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Double prec. tangent of double prec. argument 

Double prec. hyperbolic tangent of double prec. argument 

Real exponential of real argument 

Convert integer value to real 

Convert double prec. value to integer 

Convert real value to integer 

Convert real value to integer 

Integer maximum value of integer arguments 

Integer maximum value of real arguments 

Integer minimum value of integer arguments 

Integer minimum value of real arguments 

Integer remainder of integer modulus integer 

Real part of a complex argument 

Real sine of a real argument 

Hyperbolic sine of a real argument 

Convert double prec. value to real 

Real square root of a real argument 

Real tangent of real argument 

Real hyperbolic tangent of real argument 


MATH AND I/O ROUTINES 


; Most of these routines reside in the F:MATH (or F3MATH) library module. Those pre- 
M ceded with an asterisk reside in the F:EXTR (or F3EXTR) module. (Program name in 
! parentheses following description is the first entry point in the 'routine.) 


F: EATL 
F:EBAZ 
F:EDVO 
FsEINA 
FsELOC 
FsENGA 


F:EOVR 
F :EQL,1 
F:EQL2 
F:ERRC 


F:ERRS 

'? ? ESGI.. 


Q 


LAIN 
TALC 
*F:IAT2 


F:ICAB 


F:ICCS 
FsICSH 
F:IDAD 
F:IDDV 
*F:IDIN 
F:IDLD 


Argument too large 

Both arguments zero (F:EATL) 

Division by zero (F.EATL) 

Incorrect number of arguments (F:EATL) 
Error Location (F:RBPG) 

Negative argument (F:EATL) 

Overflow (F:EATL) 

Error Quote 1 (F:RBPG) 

Error Quote 2 (F:RBPG) 

Error print and continue (F:ERRC) 

Error print and TERM: (F:ERRC) 
Singularity (F:EATL) 

Internal aint (AINT) 

Internal alog (ALOG) 

Internal atan2 (ATAN) 

Internal cabs (CABS) 

Internal cos (SIN) 

Internal cosh 

Double add for functions (F:IDAD) 
Double divide for functions (F:IDAD) 
Internal dint (DINT) 

Double load for functions (F:IDAD) 
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F-.IDLG 
F: IDMV 
F: IDML 
F: IDNM 
F: IDSL 
F:IDST 
F: IDSB 
F: IDIJN 
F: IDXP 
F: IEXP 
F: IFC1 
F: IFD1 
F: IFD2 
F:IF11 
F:IFI2 
F: IIUN 
F: IRAD 
F: IRDV 
F: IRLD 
F: IRMV 
F: IRML 
F: IRSB 
F: IRST 
F: I RUN 
F: ISIN 
F: ISNH 
F: ISQR 
F: RACE 
F: RAGS 
F: RAC1 
F: RAC2 
F: RAC3 
F: RAC4 
F: RARG 
F: RBPG 
F: RBSP 
F: RCAD 
F: RCBE 
F: RCDV 
F: RCGO 
F: RCIP 
F: RCLD 
F: RCML 
F: RCNG 
F: IlCOL 
F: RCOM 
F: ItCPX 
F: RCRP 
F: RCSB 


Internal dlog (DLOG) 

Double move for functions (F: IDAD) 

Double multiply for functions (F: IDAD) 

Double normalize for functions (F:IDAD) 

Double shift left one (F:IDAD) 

Double store for functions (F: IDAD) 

Double subtract for functions (FrIDAD) 

Double unpack for functions (F: IDAD ) 

Internal dexp (DEXP) 

Internal exp (EXP) 

Complex fetch and unpack one (F:IRAD) 

Fetch and unpack one (F: IDAD) 

Fetch and unpack two (F: IDAD) 

Integer fetch and unpack one (F: IIUN) 

Integer fetch and unpack two (F: IIUN) 

Integer fetch and unpack (F: IIUN) 

Real add for functions (F: IRAD) 

Real divide for functions (F:IRAD) 

Real load for functions (F: IRAD) 

Real move for functions (F: IRAD) 

Real multiply for functions (F: IRAD) 

Real store for functions (F:IRAD) 

Real subtract for functions (F:IRAD) 

Real unpack for functions (F:IRAD) 

Internal sin (SIN) 

Internal sinh 
Internal sqrt (SQRT) 

Extended Accumulator Exponent (F: RBPG) 

Extended Accumulator Sign (F:RBPG) 

Extended Accumulator Word 1 (F: RBPG) 

Extended Accumulator Word 2 (F: RBPG) 

Extended Accumulator Word 3 (F: RBPG) 

Extended Accumulator Word 4 (F: RBPG) 

A register (interpreter) (F:RBPG) 

Base Page Definitions 
Backspace a record 
Complex add (F: RCPX) 

Cube A register 
Complex divide (F: RCPX) 

Computed Goto 
Complex to integer power 
Complex load (F: RCPX) 

Complex multiply (F: RCPX) 

Complex negate (F:RCPX) 

Complex input/output element Formatted (F:RINP) 
Complex input/output element unformatted (F:RRU) 
Complex arithmetic package entry 
Complex repack (F: RCPX) 

Complex subtract (F: RCPX) 
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F: RCST Complex store (F:RCPX) 

F: RCTD Complex to double (F:RCPX) 

F: RCTI Complex to integer (F: RCPX) 

F: RCTR Complex to real (F: RCPX) 

F: RCUS Complex input/output array element unformatted (F:RINP) 

F:RCUT Complex input/output array element unformatted (F:RRU) 

F: RDAB Double ABS (F: RDBL) 

F: RDAD Double add (F: RDBL) 

F:RDBL Double precision arithmetic package entry 
F: RDDM Double DIM (F: RDBL) 

F: RDDV Double divide (F: RDBL) 

F: RDEN Decode with optional N (F: RINP) 

F: RDIP Double precision to integer power 

F: RDIV Signed DIV 

F: RDLD Double load (F: RDBL) 

F: RDML Double multiply (F: RDBL) 

F: RDMY Setup argument addresses 

F: RDOL Double precision input/output element formatter (F:RINP) 

^ ROOM Double precision input/output element unformatted (F:RRU) 

E: RDRP Double precision to integer power (F:RIDP) 

F: RDSB Double subtract (F: RDBL) 

F: RDST Double store (F: RDBL) 

F: RDTC Double to complex (F:RCPX) | 

F: RDTI Double to integer (F: RDBL) 

F: RuTR Double to real (F: RDBL) 

F: ROUS Double precision input/output array element formatted (F:RINP) 

F: RDtJT Double precision input/output array element unformatted (F:RRU) 

F: REND End-of-file 

F: RENN Decode with Optional N (F: RINP) 

F: RERR Diagnostic error during compile formatted (F:RINP) 




F-.RFAA 

Format 

F: READ 

Format 

F: RFAF 

Format 

F: RED 

Format 

jT: RFDA 

Format 

%: REDE 

Format 

F: Rl'DF 

Format 

F: RFES 

Format 

F: RFF 

Format 

F: RFFD 

Format 

F: RFFQ 

Format 

F: RFG 

Format 

F: RF! 

Format 

F: RFIR 

Format 

F: RFL 

Format 

F: RFPE 

Format 

F: RERA 

Format 

F: RFRN 

Format 

F: RFRW 

Format 
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F'.RFSF Format stop flag (F:R1NP) 

F: RFSI Format stop line 10 (F: RINP) 

F:RFSO Format store output char (F:RINP) 

F: RFSW Format store in window (F:RINP) 

F:RFTS Format test sign (F: RFAD) 

F: RFWB Format store in window back (F: RFAD) 

F:RFWD Format set window door (F:RINP) 

F: RFWE Format window end (F: RINP) 

F: RFWF Format write flag (F: RINP) 

F: RFWI Format width (F: RINP) 

F:RFWS Format window start (F:RINP) 

F: RFZ Format conversion Z 

F: RHFO Format Hollerith free (F: RFIR) 

F:RIIUS Hollerith input/output array element formatted (F:RINP) 

F: RHUT Hollerith input/output array element unformatted (F:RRU) 
F: RIAU Double add unpacked (F:RDBL) 

F: RIDP Integer to double precision power 
F:RIDU Double divide unpacked (F:RDBL) 

F: RIIP Integer to integer power 

F:RIMU Double multiply unpacked (F:RDBL) 

F: RING Double negate (F:RDBL) 

F: RINP Input statement 

F: RINT Integer arithmetic entry (F:RITP) 

F: RIOL Integer input/output element formatted (F: RINP) 

F:RIOM Integer input/output element unformatted (F:RRU) 

F: RIRP Real to integer power 

F: RISC Double SGN (F:RDBL) 

F: RISU Double subtract unpacked (F: RDBL) 

F:RITC Integer to complex (F:RCPX) 

F: RITD Integer to double (F: RDBL) 

F:RITP Runtime interpreter 

F: RITR Integer to real (F:RREL) 

F: RIUN Double unpack (F: RDBL) 

F: RIUS Integer input/output array element formatted (F:RINP) 

F: RIUT Integer input/output array element unformatted (F: RRU) 

F: RLOL Logical input/output element formatted (F: RINP) 

F: RLOM Logical input/output element unformatted (F:RRU) 

F:RLIJS Logical input/output array element formatted (F:RINP) 

F: RLUT Logical input/output array element unformatted (F:RRU) 

F: RMPY Signed MPY 

F:ROPE Operand Exponent (F:RBPG) 

F: ROPS Operand Sign (F: RBPG) 

F: R0P1 Operand Word 1 (F: RBPG) 

F: ROP2 Operand Word 2 (F: RBPG) 

F: R0P3 Operand Word 3((F: RBPG) 

F: R0P4 Operand Word 4 (F: RBPG) 

F: ROUT Output statement (F: RINP) 

F: RPAB Parameter Block Adr (1/0) (F: RBPG) 

F: RPAU Pause 
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F: RRAB 
F: RRAD 
F: RRAU 
F: RRDM 
F: RRDP 
F: RRDU 
F: RRDV 
F: REEL 
F: RREW 
F: RRF 
F: RRFB 
F: RRFN 
F: RRFR 
F: RRIP 
F: RRLD 
F: RRML 
F: RRMU 
F: RRNG 
^:RROL 
W t’:RROM 
F: RRPP 
F: RRRP 
F: RRSB 
F: RRSG 
F: REST 
F: RRSU 
F: RRTC 
F: RRTD 
F: RRTI 
F: RRTN 
F: RRU 
F: RRUB 
F: RRUF 
F: RfUJN 
F: RRUR 
O RRHS 
F: RRUT 
F: RSIO 
F: RSIP 
F: RSMP 
F: RSQR 
F: RSTN 
F: RSTO 
F: RTRF 
F: RUAA 
F: RUAV 
F: RUGN 
F: RUIR 
F: RURE 


Real ABS (F: RREL) 

Real add (F: RREL) 

Real add unpacked (F:RREL) 

Real DIM (R: RREL) 

Real to double precision power (F-.RIDP) 

Real divide unpacked (F:RREL) 

Real divide (F: RREL) 

Real Arithmetic package entry 
Rewind 

Read formatted (F:RINP) 

Read formatted with both options (F:RINP) 

Read formatted with END option (F: RINP) 

Read formatted with ERR option (F: RINP) 

Real to integer power 
Real load (F: RREL) 

Real multiply (F:RREL) 

Real multiply unpacked (F:RREL) 

Real negate (F: RREL) 

Real input/output element formatted (F:RINP) 

Real input/output element unformatted (F:RRU) 
Parameter Pointer (Interpreter) (F:RBPG) 

Real to real power (F:RIRP) 

Real subtract (F:RREL) 

Real SGN (F: RREL) 

Real store (F:RREL) 

Real subtract unpacked (F:RREL) 

Real to complex (F:RCPX) 

Real to double (F:RDBL) 

Real to integer (F:RREL) 

Trace return (F: RTRF) 

Read unformatted (F:RINP) 

Read unformatted with both options (F: RRU) 

Read unformatted with END option (F:RRU) 

Real unpack (F:RREL) 

Read unformatted with ERR option (F: RRU) 

Real input/output array element formatted (F:RINP) 
Real input/output array element unformatted (F:RRU) 
Input/output end of list formatted (F: RINP) 
Input/output end of list unformatted (F: RRU) 

Script multiply 

Square A register 

Trace subprogram entry (F:RTRF) 

Stop 

Trace flow 

Get arg address (F: RUGN) 

Get arg value (F: RUGN) 

Get unit number adr (F:RUGN) 

10 return code process (F:RUGN) 

Unlock and return (F:RBPG) 
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F:RURT 
F:RUST 
F: RWF 
F:RWFB 
F:RWFN 
FsRWFR 
F: RWU 
F:RWUB 
F:RWUN 
F: RWUR 
F:RXRG 


Restore temps (RTX) (F:RUGN) 

Save temps (RTX) (F:RUGN) 

Write formatted (F:RINP) 

Write formatted with both options (F:RINP) 
Write formatted with END option (FsRINP) 
Write formatted with ERR option (F:RINP) 
Write unformatted (F:RRU) 

Write unformatted with both options (F: RRU) 
Read unformatted with END option (F:RRU) 
Read unformatted with ERR option (F:RRU) 

X register (interpreter) (F:RBPG) 


LSI-3/05 FORTRAN INSTRUCTION EMULATOR (F3EMUL) 


CNSOL: 
EMUL: 
F:RLS3 
MD1A: 
MDASH: 
MDBOV: 
MDLSHr, 
MDMDNs 
MDRRG: 


Software Console Routine 
Emulator Mainline 
Emulator Load Caller 

Register Change Instructions Module 1 
Arithmetic Shift Instructions Module 
Bit to Overflow Instructions Module 
Long Shift Instructions Module 
Multiply/Divide/Normalize Instructions Module 
Register Change Instructions Module 2 

* 

% 


FORTRAN RUN-TIME I/O INTERFACE ROUTINES (FsOSIO, F:RXI0 and F3RXIO) 


F:RU01 

Unit 1 FCB Table 

F.-RU02 

Unit 2 FCB Table 

F:RUG 3 

Unit 3 FCB Table 

F:RU04 

Unit 4 FCB Table 

F:RUO 5 

. Unit 5 FCB Table 

F:RUQ6 

Unit 6 FCB Table 

F:RUIN 

Standard' Input Unit FCB Table reference 

F: RUNN 

Reference to all FCB Tables 

F:RUOT 

Standard Output Unit FCB Table reference 

F: XBSP 

Backspace one record 

F:XCLS 

Close all files 

F:XDLL 

De-allocate an I/O block 

F.-XEOF 

Write an end-of-file mark 

F: XERR 

Output an error message 

F: XINP 

INPUT a record 

FrXOUT 

OUTPUT a record 

F:XPSE 

Output a PAUSE message 

F: XRCS 

Find maximum record size and allocate an I/O block 

F: XRDS 

Read a record 

F: XRWD 

Rewind a unit 

F:XSTP 

Output a STOP message 

F: XWTS 

Write a record 
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Appendix D 

ERROR MESSAGES/HALTS 


COMPILER DIAGNOSTICS DURING SCAN PHASE 



Error/ 


Message 

Warning 

Comments 

ALLOCATION 

E 

A name appearing in a declaration statement 
is invalid because of previous usage. For 


example: 

COMMON name already in COMMON or noi 
scalar or array. 

Adjustable dimension not scalar dummy. 
Name dimensioned or typed twice. 

Dummy in COMMON , EQUIVALENCE, or 
EXTERNAL. 

EQUIVALENCE or DATA array subscript 
out of range. 


ARGUMENT CONVERTED 

i 

W 

Subprogram argument is wrong type and 
is converted to right type. This can happen 
on a library function (proper type is known 
to the compiler), a statement function (type 
was determined at the definition), or an 
ordinary external function (if a previous 
call is made with different type arguments) . 
Logical cannot be converted to numeric or 
vice versa; this gets a TYPE CONFLICT error 

ARGUMENT COUNT 

i 

E 

Wrong number of arguments to subprogram. 
This can happen in the same cases as ARGU¬ 
MENT CONVERTED. 

ARRAY SIZE 

E 

Array dimensioned greater than 32K. 

BLOCK DATA ONLY 

E 

This statement may not appear in a BLOCK 
DATA subprogram. 

BLOCK OVERFLOW 

E 

Working storage has overflowed at a critical 
point in the processing of an optimization 


block, where recovery is impossible. All 
of the source lines in the block will be printed 
followed by a FORT ER 321 and abort. Get 
around this problem by juggling the program 
around, e.g. by inserting a jumped-to label 
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to shorten the block. Note that this is a 
rare occurrence. Normally long blocks 
will be shortened automatically with no error 
message. 

CONSTANT SIZE E Floating constant >1.7E38or <1.5E-39; 

or 

Hexadecimal or Hollerith constant too long 
for context or more than 255 or less than 
1; or 

DATA repeat count not integer >0. 

DIMENSION OUT OF BOUNDS 


MU PLICATE DUMMY 


DATA COUNT 


be followed by a SYNTAX error. 

E Constant not same type as variable. This 

does not apply to hexadecimal or alphanumeric 
constants. 

W Two consecutive commas in a list of items . 

E Label previously referenced as a FORMAT 

(e.g. in a READ/WRITE statement) . 

E Name can not be used in this context, due 

to previous usage. See also MISUSED 
IDENTIFIER. 

E Logical IF may not control a DO or another 

logical IF. 

W A DO loop may not terminate on a GO TO, 

DO, arithmetic IF , RETURN , or STOP. 

If DOs are also improperly nested, this mes¬ 
sage may not appear. Instead, the label 
will appear under OPEN DO LOOPS. 


DATA TYPE 

EXTRA COMMA % 

FORMAT LABEL 

I 

ID CONFLICT 

ILLEGAL ARGUMENT STATEMENT 

ILLEGAL DO CLOSE 


E Negative or zero dimension or upper bound 

less than lower. 

E Same name used twice as dummy in definition 

of FUNCTION , SUBROUTINE, or statement 
function. 

E Number of constants not same as number 

of variables. (Long Hollerith strings may 
act as several constants.) This will usually 
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Message _ 

ILLEGAL LABEL 

ILLEGAL NUMBER 

ILLEGAL OP-CODE 

ILLEGAL SIGN 

INDEX NOT ALLOWED 

JUMPED TO LABEL 

LABEL MISSING 

MISSING COMMA 
MISSING LABEL 
MISUSED IDENTIFIER 


MISUSED NAME 

MULTI DEFINED 


Error/ 

Warning _Comments 


E Label not 1-99999; or 

DO terminal label has already appeared; or 
Label on SET op -code not #Xn. 

E Integer 32767; or format count value of 

zero; or integer in complex constant; or 
negated alphanumeric string. See also 
CONSTANT SIZE and RANGE. 

E In-line assembly op-code not recognized . 

May be caused by "FORTRAN" op-code with 
an operand or by #Xn label with op-code 
other than SET. 

E Must be unsigned integer value (e.g. as 

unit number or ENCODE/DECODE character 
count). 

E In-line assembly op-code cannot be indexed. 

This appears only on MPY, DIV, NRM: 

others will get SYNTAX error. 

* 

E This label has previously appeared on a 

statement that was not a FORMAT. 

W Unlabeled FORMAT statement, or unlabeled 

statement follows a jump and cannot be 
reached. Although this is a warning, an 
unlabeled FORMAT statement will not be 
generated. 

W Comma needed between two items. 

W A SET op-code has no #Xn label. 

E Similar to ID CONFLICT . This name cannot 

be used this way because of previous usage. 
For example: 

DO index is array; or 

name left of equal sign not scalar or array; 
or 

Intrinsic function name used as in-line assem 
bly operand. 

E A system name (containing a colon) was 

referenced improperly (e.g., as an in-line 
assembly language operand without a base 
page (BP) reference preceding it). 

E Statement label previously defined. 
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I 

| 


| 

Message _ 

j NOT ARRAY 

I 

! NOT INTEGER 


S 

i 


Error/ 
Warning 


Comments 


E FORMAT reference name not array. 

E This expression must be integer (e. g. a 

subscript), but contains at least one non¬ 
integer element. The $ marks the end of 
the expression, but the erroneous element 
may not be the last one in the expression. 


NOT SUBROUTINE 

NUMBER OF SUBSCRIPTS 


^'ObSlBLE ERROR 


RANGE 


STATEMENT ORDER 


SYNTAX 


TYPE CONFLICT 


E Name following CALL is not a subroutine 

name. 

E Too many or too few subscripts. On the 

left of an equal sign, an array with no sub¬ 
scripts will have the message UNSUBSCRIPTED. 

W Format stored in integer or logical array 

probably won't work in ANSI mode. See 
reference manual. 

E In-line assembly operand out of range; 

or unit number not 1-99. See also CONSTANT 
SIZE and ILLEGAL NUMBER. 

E Certain statements must appear before other 

statements. In general, declaration statements 
must come at the beginning. See appendix A 
of the reference manual. 

E This is by far the most common error message . 

It indicates improper sequencing of operands, 
operators, or punctuation. In a FORMAT, 
it may be caused by incorrect Hollerith fields. 

E Complex expression appears in arithmetic 

IF or improper assignment, relational, or 
exponentiation; or 

Logical operand or argument appears where 
numeric should or vice versa. 


■ UNDEFINED CONDITIONAL E #Xn label has not been defined by a previous 

SET. 

UNDIMENSIONED E Name followed by left parenthesis on left of 

! equal sign has not been dimensioned. 
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Message _ 

UNRECOGNIZABLE 


UNSUBS CRIPTED 



Error/ 

Warning _ Comments _ 

E More serious than SYNTAX. The compiler' 

cannot determine what kind of statement 
this is supposed to be. Questionable appear 
ances of this message should be reported 
to us. 

E Array appears at beginning of statement 

(i.e. to left of equal sign) without subscripts 
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COMPILER DIAGNOSTICS DURING ALLOCATE PHASE 


M essage 


ALLOCATION ERRORS 


Comments ___ 

Followed by a list of variable names. These names 
are involved in illegal EQUIVALENCES: either a 
conflict in storage assignment or an extension of 
COMMON. This message appears at the end of the 
storage allocation map. 


FUNCTION NAME NOT 
REFERENCED 


The name of a FUNCTION, which is supposed to return 
the result, has never been referenced. This message 
appears at the beginning of the allocation map. 


OPEN DO LOOPS 


STORAGE OVERFLOW 


Followed by lines of the form: | 

44 OPENED AT LINE 140 

This indicates a "DO 44" on line 140, but the terminal 
statement with label 44 was not found. Sometimes 
the label may have actually appeared, but was not 
found due to incorrect nesting of DO loops. This 
message appears at the beginning of the allocation 
map. 

One of the storage areas (local, blank COMMON , 
labeled COMMON) has overflowed 32K. This message 
appears following the map of the corresponding storage 


UNDEFINED LABELS 


Followed by lines of the form: 

17 FIRST REF AT LINE 9 
The statement number 17 was never defined, and 
there is at least one reference to it, on line 9. There 
may be overlap between this message and OPEN DO 
LOOPS . This message appears at the beginning of 
the allocation map. 
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Message _ 

LITERAL POOL 


! 


RANGE ERROR 


Error/ 

Warning _ Comments 


E A literal pool has been created in the object 

(or blank) code. If the message is not followed by 
"E*E*E" , the pool has been necessitated 
by FORTRAN statements, and is guaranteed 
not to adversely affect any adjacent machine 
language instructions. 

If "E*E*E" appears in the message, the literal 
pool has been caused by the user’s in-line 
ASSEMBLER language statements referencing 
out of rangb operands. The pool is preceded 
by a jump around, which may or may not 
work correctly, depending on where the 
pool appears. Examine the object listing 
to determine whether the pool is acceptable. 

If it is not acceptable, use an LPOOL directive 
to elicit the literal pool somewhere earlier 
in the in-line assembly language sequence. 
Note that if you supply your own LPOOL 
directives in your assembly language 
sequences, they will not generate a jump 
around them, nor will a "LITERAL POOL" 
diagnostic be output. 

E An in-line assembly operand is out of range 

for the op-code it has been used with. Most 
of these will be caught by the RANGE error 
in Pass 1. This message appears when the 
range is not known until pass 2 (e.g. forward 
references). The error may refer to the 
operand of the line it appears on, or it may 
refer to the label, in which case there was 
a previous line that referenced this label 
and it is the previous line whose operand 
is out of range. 
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CO MPILER ERRORS (ABORT CONDITION) 

All abort-condition compiler Errors are of the form 


FORT ER ptt 

where p identifies the phase of the compiler that was operating: 

p = 1 Scan 

2 Allocation 

3 Gen 


and tt identifies the type of error: 



11 Pointer overflow 

18 I/O error during overlay loading 

21 Working storage overflow 

28 Memory overflow during overlay loading 

31 Compiler error 

38 Illegal type code during overlay loading 

41 Compiler error 

51 Compiler error during collapse. 




Except for 21 and 28, all of these result from hardware or software errors. If they occur 
in a reproducible way, they are probably software errors, which should be reported. 

28 indicates that the compiler will not fit in memory. 21 indicates that the program cannot 
be compiled in the given amount of memory. 


OS:LNK ERRORS 

During the link process, various error conditions may occur. These errors may be grouped 
into three types: 


i agnostics 

j Diagnostics are messages output to the LO device as they are encountered. They indicate 
| memory usage conflict of various forms, and are usually caused by scratchpad or main 
memory overflow, or an attempt to store data into a scratchpad location which is already 
| occupied. These errors do not cause termination of OS: LNK, but may produce erroneous 
results during program execution. The specific error messages are described below. 

j "COMMON SIZE CONFLICT, IGNORED" (followed by program name, COMMON name, first 
j defined size, subsequently defined size). A labeled COMMON definition has been encoun¬ 
tered , whose size differs from that of a previous labeled COMMON definition of the same 
j name. Since OS: LNK allocates memory according to the size in the first definition, no 
! problem should occur as long as the first defined length is greater than the subsequent 
jj definition. However , if the subsequent definition is of greater size, a reference to the 
j excess portion of the COMMON area may produce invalid results during execution. If 
j this is the case, re-compilation is advisable using identical sizes for both definitions. 
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"MEMORY OVERFLOW, IGNORED" (followed by program name). Memory location : 7FFF 
has been passed, and more memory is required. Allocation will continue at location zero. 
The program must either be shortened and,then recompiled, or relocated to a lower memory 
location and then re-linked. 

"SCRATCHPAD LITERAL OVERFLOW , IGNORED" (followed by program name) . The literal 
pool address pointer has decremented to zero. Additional literals will not be assigned; 
references to any further unassigned literals will reference location zero. This error 
can often be corrected by re-linking with a different SR and/or SP option, or by re-compila- 
tion using the "NS" (no scratchpad) option. 

"SCRATCHPAD PROGRAM/LITERAL OVERLAP, IGNORED" (followed by program name 
and scratchpad overlap address). The two pointers for scratchpad literals and scratchpad 
relocatable data have passed each other at the location shown. This is not necessarily 
a problem; however, the situation may sometimes by avoided by re-linking with a different 
SR and/or SP option, or by re-compilation using the "NS" (no scratchpad) option. 

"SCRATCHPAD PROGRAM OVERFLOW, IGNORED" (followed by program name). Scratchpad 
relocatable data has passed the high scratchpad limit. OS:LNK will continue to store 
data into higher locations. This problem may be corrected by re-linking with a different 
SR and/or SP option, or by re-compiling using the "NS" (no scratchpad) option. 

"SCRATCHPAD USAGE CONFLICT, IGNORED" (followed by program name and scratchpad 
location). Input data has been encountered that would be placed in a scratchpad location 
already occupied by a literal or other input data. If a literal occupies the cell, the input 
data will be lost. If the cell is occupied by input data, it will be overlayed by the new 
data. This problem may be corrected by re-linking with a different SR and/or SP option, 
or by re-compiling using the "NS" (no scratchpad) option. 



Termination Errors 

These are messages output to the CO and LO devices, indicating an error which prevents 
OS: LNK from completing the link operation. A memory map is printed at this time, and 
OS: LNK terminates. These messages are: 

"BAD TYPE CODE". An invalid type code was recognized in the input data. The user 
should restart OS: LNK one time. If it fails again, re-compilation is probably required. 

"LINK ERROR n" (where n may range from 1 to 5). This error indicates various types 
of logic failure within either the compiler (error No. 1-4) or OS: LNK itself (error No. 5) . 
Computer Automation should be notified of such an occurence with as much information 
as possible regarding the program and procedure which elicited the error. 

NOTE 


Currently. LINK ERROR 2 indicates that a variable in blank 
COMMON was given a value in a DATA statement. This is actually 
a source program error, but is not diagnosed by the compiler. 

' ' i 
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"TABLE FULL" . An overflow condition has occurred in the link edit table. OS: LNK re¬ 
quires more memory for its working storage. 


I/O Errors 

I/O error messages are output to the CO device, and reflect an error status received from 
OS following an I/O operation. 

"I/O ERR" . An irrecoverable error status has been returned. OS: LNK will terminate; 
however, the user may re-execute OS: LNK to retry the I/O operation. 


til 

■ 

I 

|; 


"INPUT CK". The BI or LI device is not ready for input. The user should ready the 
device, then continue with a /RESUME command. 







-—--- COMPUTER AUTOMATION. INC. fc] gj 

FORTRAN RUN TIME ERROR MESSAGES 
Form: (Routine Name) , (message) ERROR at : xxxx 


Message _ Routine Name _ Comments _ 

ARGUMENT TOO COS > DCOS , DSIN, All significance to result lost. Zero 

LARGE DTAN, SIN, TAN returned. 

DEXP, EXP, IDINT , Result would overflow. Maximum 

IFIX, INT, I**R, R**R, value returned. 

D**R, I**D, R**D , 

D**D 

BOTH ARGUMENTS ATAN2, DATAN2 Zero returned. 

ZERO 


ARGUMENT TOO 
LARGE 


BOTH ARGUMENTS CLOG 

ZERO 


Real and imaginary parts both zero. 
Minus maximum value returned. 


LINE dddd, Program name A statement has been reached that 

COMPILATION had a compilation source error, dddd 

is the source line number which will 
always have been marked with an 
error message except in the case of 
an undefined label reference. 


DIVISION BY ZERO Many This condition is automatically tested 

for in a large number of routines, 
but is not expected to occur. If it 
does, let CAI know . 


END OF FILE ENDFILE , FORMATTED, On a READ this means that an en< 

UNFORMATTED of-file mark has been encountered. 

On a WRITE or ENDFILE it means that 
end-of-tape or end-of-media has been 
reached (but the requested WRITE 
has been done) . If an END= was speci¬ 
fied, this message will not appear. 
Otherwise it will abort. 


FORMAT INTEGER FORMATTED 


ILLEGAL FORMAT FORMATTED 

CHAR 


Number in FORMAT statement is greate 
than 32K. This should only happen 
on FORMATS stored in arrays, because 
normal FORMATS will be caught at 
compile time. Abort. 

Syntax error in FORMAT statement. On: 
on FORMATS stored in arrays. Abort. 
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Comments 



ILLEGAL INPUT CHAR FORMATTED 


ILLEGAL OPERATION 


ILLEGAL REPEAT 
COUNT 

ILLEGAL UNIT 


0 


INCORRECT NUMBER 
OF ARGUMENTS 


INTEGER INPUT 
OVERFLOW 

I/O 




NEGATIVE ARGUMENT 


NUMBER OF 

I ARGUMENTS 


NUMERIC MISMATCH 


BACKSPACE, ENDFILE, 
FORMATTED, REWIND, 
UNFORMATTED 


FORMATTED 


BACKSPACE, ENDFILE, 
FORMATTED, REWIND, 
UNFORMATTED 


Many 


Illegal character in numeric input 
field. Abort. 

This operation cannot be performed 
on the requested device. Abort. 

Please refer to the following OS diagnos¬ 
tics for the various reasons this can 
occur: WRITE PROTECT, MULT WRITE 
ERROR, I/O BLOCKING OVERFLOW, 
and ILLEGAL OPEN. 

FORMAT repeat count of zero. Only 
on FORMATS in arrays. Abort. 

The unit number is not in the logical 
unit table. Abort. Under OS, this 
will be preceded by the message "yy 
NOT FOUND" . Note that if yy is in 
the table, but is not assigned to a 

device, this will cause the UNASSIGNED 

* 

error (under OS)*, 

A library routine has been called with 
the wrong number of arguments. 

Abort. FORTRAN compiled routines 
get the message NUMBER OF ARGU¬ 
MENTS . 


FORMATTED 


BACKSPACE,ENDFILE, 
FORMATTED, REWIND, 
UNFORMATTED 


Input value exceeds 32K. 
value returned. 


Maximum 


Hardware error. Under OS, this will 
usually be preceded by DATA ERROR 
or HDWR ERROR, identifying the physi¬ 
cal device. Abort, unless ERR= exit 
specified. 


ALOG, ALOGIO, DLOG, Absolute value used instead. 
DLOGIO, DSQRT, SQRT 


A FORTRAN compiled subprogram 
has been called with the wrong number 
of arguments. Abort. 

A numeric value is associated with 
a logical format, or vice-versa. Abort. 


FORMATTED 
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Message 


Routine Name Comments 


OUT OF RANGE 


OVERFLOW 


OVERFLOW 


PAREN NESTING 

REAL INPUT 
OVERFLOW 

SINGULARITY 


UNDEFINED 

SECONDARY 

REFERENCE 


COMPUTED GO TO The variable (v) is less than 1 or 

greater than n (the number of labels). 
Abort. 


CABS , CCOS , CEXP, Maximum value returned. 
CSIN, CSQRT , DMOD, 

DTAN , DTANH, EXP, 

TAN, TANH 


1**1, R**I, D**I, C**I, 
I**R, R**R, D**R, 
I**D, r**d, D**D 


Exponentiation overflow or underflow. 
Maximum value or zero returned, 
respectively. 


FORMATTED 


FORMATTED 


More than eight levels of nesting. 
Only possible on FORMATS stored 
in arrays. Abort. 

Floating point input value too large. 
Maximum value returned. 


DTAN, TAN Tangent of (n+D-ff cannot be expressed 

Maximum value returned. Arguments 
near the singularity point may get 
the message OVERFLOW. 


The library is out of order or the e 
is an error in the library or the genera 
ted code. Report this to CAI. 
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Message 

Return/ 

Suspend 

Comments 

xx DATA ERROR 

Ret 

Checksum or parity error in I/O transmission. 


xx is a physical device. This will be followed 
by an "I/O” error from FORTRAN, and the 
ERR= exit, if any. 


zzzzzz DUPLICATE FILE Sus File name to be opened for WRITE already 

exists, possibly from your job, but more 
likely from a previous job. Choose a different 
name or delete the old file, zzzzzz is the 
file name. 

xx HDWR ERROR Ret Hardware error, xx is the physical device. 

1 The record may or may not have been transmit¬ 

ted (e.g. a card moved from the hopper 
to the stacker); it may be possible to deter¬ 
mine this by the status indicated on the device. 
Like DATA ERROR (above), this will be 
followed by a FORTRAN I/O error and possibly 
ERR= exit. 

xx ILLEGAL OPEN Sus A device to be opened for input or binary 

is an output-only or ASCII-only device, re- j 
spectively, or vice versa. xx is the physical ! 
device. This error will only occur on the 
first use of a unit number (when it is opened) . 
Subsequent uses would get the FORTRAN 
ILLEGAL OPERATION error. 

I/O BLOCKING OVERFLOW Ret Not enough unused memory for blocking 

v buffers. Program is too large. This will 

be followed by a FORTRAN ILLEGAL OPERA¬ 
TION error. 

xx MULT WRITE ERROR Ret Two unit numbers are assigned to files on 

the same tape unit, namely xx. (Disks can 
support multiple files open for writing, but 
tapes cannot.) If you need to do this, you 
must call a machine language subroutine 
to close the old file when you are through 
with it. This message will be followed by 
a FORTRAN ILLEGAL OPERATION error. 
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Return/ 

Message ___ Suspend 


yy NOT FOUND 

Ret 

zzzzzz NOT FOUND 

Sus 

xx NOT READY 

Sus 

yy UNASSIGNED 

Sus 


xx WRITE PROTECT Ret 


Comments 


The unit number yy is not in the logical 
unit table. (Only units 1-6 are included 
in the standard delivered system.) This 
will be followed by a FORTRAN ILLEGAL 
UNIT error. 

A file name to be opened for reading does 
not exist, zzzzzz is the file name 

The physical device xx is not ready. 

The unit number yy is in the logical unit 
table, but is not assigned to a physical 
device. 

The device xx is either a write-protected 
tape or disk or else a disk that is full. 
This error can come out on any WRITE, not 
just when opened. It will be followed by 
a FORTRAN ILLEGAL OPERATION error. Note 
that files used during FORTRAN execution 
are not automatically deleted, and could 
accumulate until a disk was full. It is 
good practice, therefore, to delete files 
when you are through with them. 


ERROR HALTS 


Error halts are used to indicate a serious hardware or system software malfunction. 
When one of these occurs. Computer Automation should be notified. Each halt is coded 
with an identifying value in the low-order 8 bits of the instruction, and may be 
observed, via the Console, in the I-register. 


FORTRAN Halts 



I=:08DC 


Console Data Register = :3CC0 



The floating point interpreter has 
encountered an unrecognized instruction 
during run-time. Report the condition to 
Computer Automation with all related 
program information (Contents of A, X, I, 
P registers, program listing, and, if 
possible, source input on cards or paper 
tape). 

An LSI-3/05 Uninstalled Memory Trap has 
occurred. This halt code was output by 
the Software Console routine. Locations 
:88 and :89 should be examined for the 
address and instruction, respectively, 
which caused the trap. // 
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Console Data Register = :3CC2 


OS System Halts 

I 

, I=:0801 

| 

i 

| I=:0802 

i 

; I=:0803 

! 

| I=:0804 

*0805 

RTX System Halts 

I 

None* 


Computer Automation 


An LSI-3/05 Unimplemented Instruction 
Trap has occurred. Using the Console 
panel, inspect locations :84 and :85 for 
the address and instruction, respectively, 
which caused the trap. 


The Cl device does not respond. Correct 
the problem and reload OS. 


The CO device does not respond, 
the problem and reload OS. 


Correct 


The Real-time Clock does not respond. 
Correct the problem and reload OS. 

Unrecoverable disk error. Notify Computer 
Automation. 

Unrecoverable disk error. Notify Computer 
Automation. 
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